perl - 用 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);