Как я могу получить имя файла, читаемого в Perl?

Question

В следующем шаблоне Perl:

while(<>) {
  # do stuff
}

есть ли способ получить имя файла, который сейчас открыт?

Просто для ясности, я ожидаю получить много аргументов, так что цикл будет обрабатывать более одного файла. Я хочу, чтобы имя файла в настоящее время обрабатывалось.

Answer 1

Хранится в

$ARGV

См. perldoc perlvar :

• $ ARGV

  содержит имя текущего файла при чтении из <>.

Однако, если вы получаете от STDIN, вы получите только '-'

Существует также дополнительное обсуждение дескриптора пустого файла в perldoc perlop

Answer 2

$ ARGV содержит имя файла, используемого в <>.

Answer 3

Если вы используете Linux, вы можете взглянуть на файл, на который указывает /proc/self/fd/0.

Редактировать: Ответ исправлен для ясности: приведенное выше полезно, но только в тех случаях, когда ввод для сценария perl читается из stdin. Это можно определить, прочитав $ARGV, как описано в ответах выше.