perl -pi -le 'print " cell_type = pad;" if $. ==4' *.cell.plt
但这只是改变我目录中的第一个文件,而不是所有文件.如何一次在所有文件中插入行.我试过几种方法,但总是失败.请帮忙.谢谢.
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' {} \;
