У меня есть файл someFile
, например:
$cat someFile
hdisk1 active
hdisk2 active
Я использую эту оболочку script для проверки:
$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
в оболочку script и получаю значение с помощью %ENV
в Perl. Есть ли лучший способ передать это значение одному слою Perl?