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"

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

2 个答案: