perl - 如何最好地将参数传递给 Perl 语句？

Question

我有一个文件，someFile，如下所示:

$cat someFile
hdisk1 active
hdisk2 active

我使用这个 shell 脚本来检查:

$cat a.sh
#!/usr/bin/ksh
for d in 1 2
do
    grep -q "hdisk$d" someFile && echo "$d : ok"
done

我正在尝试将其转换为 Perl:

$cat b.sh
#!/usr/bin/ksh
export d
for d in 1 2
do
    cat someFile | perl -lane 'BEGIN{$d=$ENV{'d'};} print "$d: OK" if /hdisk$d\s+/'
done

我在 shell 脚本中导出变量 d 并在 Perl 中使用 %ENV 获取值。有没有更好的方法将此值传递给 Perl 单行代码？

Answer 1

您可以使用“s”开关启用基本命令行参数。为每个以破折号开头的参数定义一个变量。 -- 告诉您的命令行参数从哪里开始。

for d in 1 2 ; do 
  cat someFile | perl -slane ' print "$someParameter: OK" if /hdisk$someParameter\s+/' -- -someParameter=$d; 
done

参见: perlrun