Печать содержимого файла на экран в perl

Question

У меня есть скрипт perl, который записывает несколько строк в файл. (Я проверил и вижу, что файл написан правильно) сразу после того, что я хочу, чтобы распечатать содержимое на экране, так что я пытаюсь сделать, чтобы это- прочитать файл и распечатать его

open (FILE, '>', "tmpLogFile.txt") or die "could not open the log file\n"; 
$aaa = <FILE>; 
close (FILE); 
print $aaa; 

, но я ничего не вижу на экране, что я делаю неправильно?

Answer 1

попробовать это:

use strict; 
use warnings; 

my $filename = 'data.txt'; 
open(my $fh, '<:encoding(UTF-8)', $filename) 
    or die "Could not open file '$filename' $!"; 

while (my $row = <$fh>) { 
    chomp $row; 
    print "$row\n"; 
    } 
print "done\n" 

Answer 2

Для чтения необходимо указать режим открытия в <. Кроме того, $aaa = <FILE> имеет скалярный контекст и только читает строку. Использование print <FILE> вы можете иметь контекст списка и прочитать все строки:

open (FILE, '<', "tmpLogFile.txt") or die "could not open the log file\n"; 
print <FILE>; 
close (FILE);