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

Question

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

Answer 1

Евгений уже показал правильный путь. Вот более короткий скрипт:

#!/usr/bin/perl
print while <>

или, что эквивалентно,

#!/usr/bin/perl -p

в командной строке:

perl -pe0 textfile.txt

Вы должны начать изучать язык методично, следуя достойной книге, а не путем случайных поисков в Интернете.

Вам также следует воспользоваться обширной документацией, прилагаемой к Perl.

См. perldoc perltoc или perldoc.perl.org .

Например, открытие файлов покрыто perlopentut .

Answer 2

Сначала откройте файл:

open my $fh, '<', "filename" or die $!;

Далее используйте цикл while для чтения до EOF:

while (<$fh>) {
    # line contents's automatically stored in the $_ variable
}
close $fh or die $!;

Answer 3

# open the file and associate with a filehandle
open my $file_handle, '<', 'your_filename'
  or die "Can't open your_filename: $!\n";

while (<$file_handle>) {
  # $_ contains each record from the file in turn
}