Как лучше (идиоматически) завершить работу сценария Perl (запускается с -n / -p), если входной файл не найден?

$ perl -pe 1 foo && echo ok
Can't open foo: No such file or directory.
ok

Мне бы очень хотелось, чтобы скрипт perl не работал, когда файл не существует. Что такое «правильный» способ заставить -p или -n завершиться ошибкой, когда входной файл не существует?

Ключ -p это просто ярлык для упаковки вашего кода (аргумент следующего -e) в этом цикле:

LINE:
  while (<>) {
      ...             # your program goes here
  } continue {
      print or die "-p destination: $!\n";
  }

(-n то же самое, но без блока продолжения.)

<>Пустой оператор эквивалентен readline *ARGV, и который открывает каждый аргумент в последовательности в виде файла на чтение. Нет никакого способа повлиять на обработку ошибок этого неявного открытия, но вы можете сделать предупреждение, которое оно генерирует, фатальным (обратите внимание, это также повлияет на несколько предупреждений, связанных с ключом -i):

perl -Mwarnings=FATAL,inplace -pe 1 foo && echo ok

Установите флаг в теле цикла, проверьте флаг в блоке END в конце oneliner.

perl -pe '$found = 1; ... ;END {die "No file found" unless $found}' -- file1 file2

Обратите внимание, что это происходит только когда файл не был обработан.

Чтобы сообщить о проблеме, когда не все файлы были найдены, вы можете использовать что-то вроде

perl -pe 'BEGIN{ $files = @ARGV} $found++ if eof; ... ;END {die "Some files not found" unless $files == $found}'