これが私が持っているものです。
#!/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 つの異なる印刷行を取り、コードによって作成される別のファイルに送信したいと思います。「<」操作を使用することは知っていますが、それを理解するのに問題があります。
どんな助けでも大歓迎です。ありがとう。