输出PERL到一个.txt文件和屏幕

Question

这是我的。

#!/usr/bin/perl 

$numbertotal = 0; 
$filecount = 0; 

open my $thisfile, '<', "files.txt" or die $!; 

while (<$thisfile>) { 
    ($thisdate, $thistime, $thisampm, $thissize, $thisname) = split; 

    $numbertotal += $thissize; 
    $filecount += 1; 
    printf "%10d  %-25.25s\n", $thissize, $thisname; 
} 

$averagefilesize = $numbertotal/$filecount; 

print "Total files: ",$filecount,"  Average file size: ",$averagefilesize," bytes\n"; 

我想取2条不同的印刷线，并将它们发送到将通过代码来创建另一个文件。我知道它会使用'<'操作，但我有一个问题搞清楚了。

任何帮助表示赞赏。谢谢。

Answer 1

要写入一个文件，你'>'打开它：

open my $thisfile, '<', "files.txt" or die $!; 
open my $thatfile, '>', 'output.txt' or die $!; 

while (<$thisfile>) { 
    ($thisdate, $thistime, $thisampm, $thissize, $thisname) = split; 

    $numbertotal += $thissize; 
    $filecount += 1; 
    printf $thatfile "%10d  %-25.25s\n", $thissize, $thisname; 
} 
close $thatfile; 
close $thisfile;