perl - 如何使用 perl oneliner 遍历多个文件

Question

我正在尝试使用 perl liner 在第 4 行向许多 perl 文件添加一行。我正在使用:

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

但这只是更改我目录中的第一个文件，而不是所有文件。如何一次在所有文件中插入该行。我尝试了几种方法，但总是失败。请帮忙。谢谢。

Answer 1

您只从一个文件句柄读取，所以只有第 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' {} \;