perl - 如何在 -n 或 -p 模式下使用 Perl 处理选项？

Question

运行时 perl -n或 perl -p , 每个命令行参数都被当作一个文件来逐行打开和处理。如果您想将命令行开关传递给该脚本，我该怎么做？

Answer 1

在不使用 STDIN 或外部存储的情况下，可以通过三种主要方式将信息传递给 Perl。

参数
使用时 -n或 -p , 提取 BEGIN 中的参数堵塞。

  perl -ne'BEGIN { ($x,$y)=splice(@ARGV,0,2) } f($x,$y)' -- "$x" "$y" ...

命令行选项
在完整的程序中，您将使用 Getopt::Long ，但是 perl -s 会在这里做得很好。

  perl -sne'f($x,$y)' -- -x="$x" -y="$y" -- ...

环境变量

  X="$x" Y="$y" perl -ne'f($ENV{X},$ENV{Y})' -- ...