shell脚本调用perl

gigisor

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

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应该如何操作。谢谢

gigisor

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