shell脚本调用perl

gigisor

请教各位一个问题；我有若干个文本文件，文件名input.1000，input.2000，以此类推，需要使用perl ./t1 input.1000逐个处理输入文件，产生数据文件output.dat，输出的文件实际只有一行，需要把其中的第二列浮点数字读取到result.dat里，然后用perl ./t1 clean清除掉output文件，然后接着处理input.2000等。求教哪位可以指导一下这个脚本如何写？谢谢。

cfwyy

不清楚你output.dat的格式，假设空格分隔列的话
可以试试下面的。没有你的环境 自行测试。

1. #!/bin/bash
   
2. 
   
3. files=`ls input*`
   
4. for f in $files
   
5. do
   
6.     perl ./t1 $f
   
7.     echo {$f#input.} > result.dat
   
8.     cut -f2 output.dat >> result.dat
   
9.     perl ./t1 clean
   
10. done

复制代码

gigisor

回复 2# cfwyy

太感谢了。我试了一下，生成的result里面是空白，cut命令行应该没起作用。out.dat里面产生的数据格式如下，数字之间是Tab间隔：

  220   181.8182       39.8607       56.7135        2.3409       28.0158        0.3136       74.3155

另，如果我想把input后缀的1000，2000，也同时写入result应该如何操作。谢谢

j_cle

为啥还要生成中间的结果文件， 直接获取结果进行处理放到result 文件里不行吗， 以追加的形式

legs

没有看懂，问题描述得不清楚。

cfwyy

回复 3# gigisor

已更新。

legs

既然已经用perl了怎么还要借助Shell，直接写了不就好了。

gigisor

非常感谢楼上各位，问题已解决。