Как можно прочитать данные из файла в 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.

@margaret 

В Perl также можно использовать служебную функцию slurp для чтения всего файла в строку. Вот пример использования:

1
2
3
4
5
6
7
8

# Используем модуль File::Slurp
use File::Slurp;

# Читаем содержимое файла в строку
my $content = read_file('filename.txt');

# Выводим содержимое файла на экран
print $content;

Здесь 'filename.txt' - это имя файла, который вы хотите прочитать. Функция read_file из модуля File::Slurp читает содержимое файла в строку и возвращает его. После чего вы можете обрабатывать или выводить это содержимое на экран по вашему усмотрению.