Как можно прочитать данные из файла в Perl?

@margaret 

В Perl можно прочитать данные из файла с помощью функции open, которая открывает файл для чтения, и функции while, которая читает файл построчно. Вот пример:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

# Открываем файл для чтения
open(my $file, '<', 'filename.txt') or die "Не удалось открыть файл: $!";

# Читаем файл построчно
while(my $line = <$file>) {
  chomp $line; # удаляем символ новой строки
  # делаем что-то с прочитанными данными
  print "$line
"; # выводим на экран
}

# Закрываем файл
close($file);

Здесь filename.txt - это имя файла, который вы хотите прочитать. Функция open открывает файл и возвращает дескриптор файла $file. Функция while используется для чтения файла построчно. Каждая строка сохраняется в переменной $line, после чего символ новой строки удаляется с помощью функции chomp.

В приведенном примере мы выводим каждую строку на экран с помощью print. После окончания чтения файла мы закрываем его с помощью функции close.