Perl oneliner 在哪里啜饮@ARGV

Question

我正在寻找一个 Perl oneliner（将其插入到 Bash 脚本中），我需要下一个接口：

perl -0777 -nlE 'commands' file1 file2 .... fileN

我创建了下一个：

perl -0777 -lnE 'BEGIN{$str=quotemeta(do{local(@ARGV, $/)="file1"; <>})} say "working on $ARGV" if $_ =~ /./' "$@"

更漂亮：

perl -0777 -lnE '
    BEGIN{
        $str = quotemeta(
            do{
                local(@ARGV, $/)="file1"; <>  #localize ARGV to "file1.txt" for <>
            }
        )
    }
    say "working on $ARGV" if $_ =~ /./   #demo only action
' "$@"

它可以工作，但是每次需要更改file1时，我都需要编辑源代码。

如何将脚本更改为以下内容？

• 将$ARGV[0]（file1）插入$str（在BEGIN块中）
• 然后在主循环中将其他参数添加到 $_ 中

Answer 1

将其作为参数传递，将其从 BEGIN 块中的 @ARGV 中删除。

$ echo foo >refile

$ echo -ne 'foo\nbar\nfood\nbaz\n' >file1

$ echo -ne 'foo\nbar\nfood\nbaz\n' >file2

$ perl -lnE'
   BEGIN {
      local @ARGV = shift(@ARGV);
      $re = join "|", map quotemeta, <>;
   }
   say "$ARGV:$.:$_" if /$re/;
   close(ARGV) if eof;  # Reset $.
' refile file1 file2
file1:1:foo
file1:3:food
file2:1:foo
file2:3:food