请教perl中system的问题

imonkey

1. system ("more $FILEPATH/$file | sed '1d' | sed 's/\\s\\+/,/g' | sed 's/,-,/,0,/g' > $tmpData");
   
2. system qq(more $tmpData | sed '1,6d' > $tmpData);
   

复制代码

如上两行命令， 目的是对 $file去掉第一行，做一些修改，然后存放到$tmpData中
原始文件$file比较长，可能几千行。发现经常在900多行左右就被截断了。
如果手工在命令行运行以上命令就没有问题。

请教各位是什么原因，应该看哪方面的东西来解决。
如果没有说清楚，还需要哪些信息请告知。
多谢！

lucash

建议你还是去写shell。

imonkey

回复 2# lucash

多谢2L.

在另外一个论坛得到解决办法是
问题应该是出在第二条语句。同时对一个文件进行读写操作容易出现问题。

修改之后没有问题了。