在 perl 中将文件内容打印到屏幕

Question

我有一个 perl 脚本，它将几行写入文件中。 （我检查了一下，发现文件写入正确） 之后我想将内容打印到屏幕上，我尝试的方式是读取文件并打印它

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

但我的屏幕上什么也没显示，我做错了什么？

Answer 1

要阅读，您需要将打开模式指定为

<

。 此外，

$aaa = <FILE>

具有标量上下文，并且仅读取一行。 使用

print <FILE>

您可以拥有列表上下文并读取所有行：

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

Answer 2

试试这个：

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"