如何使用perl oneliner循环遍历许多文件

概述我试图使用perl衬里在第4行添加一行到许多perl文件.我在用 ： perl -pi -le 'print " cell_type = pad;" if $. ==4' *.cell.plt 但这只是改变我目录中的第一个文件,而不是所有文件.如何一次在所有文件中插入行.我试过几种方法,但总是失败.请帮忙.谢谢. 你只是从一个文件句柄读取,所以只有一行4.幸运的是,有一种方法可以重置$.. 我试图使用perl衬里在第4行添加一行到许多perl文件.我在用 ：

perl -pi -le 'print "     cell_type = pad;" if $. ==4' *.cell.plt

但这只是改变我目录中的第一个文件,而不是所有文件.如何一次在所有文件中插入行.我试过几种方法,但总是失败.请帮忙.谢谢.

解决方法 你只是从一个文件句柄读取,所以只有一行4.幸运的是,有一种方法可以重置$..

perl -i -ple'    print "     cell_type = pad;" if $. == 4;    close ARGV if eof;' *.cell.plt

(注意,eof与eof()不同.)

或者,您可以为每个文件执行perl

find -maxdepth 1 -name '*.cell.plt' -type f -exec \   perl -i -ple'print "     cell_type = pad;" if $. == 4' {} \;

总结

以上是内存溢出为你收集整理的如何使用perl oneliner循环遍历许多文件全部内容，希望文章能够帮你解决如何使用perl oneliner循环遍历许多文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。