要在控制台中将report.txt文件作为输出打印

Question

这是我的示例代码，我想在控制台中将报告打印为输出，我尝试了很多次，但是我不能这样做，新学习者。

#!/usr/local/bin/perl

# for loop execution
$b=0;
for( $a = 0; $a < 5; $a = $a + 1 ) {

   print "Enter your name please" ;
   my $name = <STDIN>;
   chomp $name;
   open(my $name, '>', 'report.txt');
   close $name;

}

Answer 1

my $qfn = 'report.txt';

open(my $fh, '<', $qfn)
   or die("Can't open \"$qfn\": $!\n");

while (<$fh>) {
   print;
}

最后三行等效于

while ($_ = <$fh>) {
   print($_);
}

所以您也可以使用

while (my $line = <$fh>) {
   print($line);
}