我有一个文件,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
我导出外壳脚本中的变量d
,并使用Perl中的%ENV
获取该值。有没有更好的方法将这个值传递给Perl一行程序?
https://stackoverflow.com/questions/3321829
复制相似问题