輸出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;