2007年2月12日(月)

おてあげ

簡單な處理な筈なのに全くうまくいかない。

ibook:~/desktop kzhr$perl author.pl author.txt

として使ふperlスクリプトで、

Anonymous, Brabrabra, Barbarbar, Hogehogehoge, Barbar

といふ結果を得たい。author.txtは

Brabrabra
Anonymous
Hugahuga
Brabrabra
Anonymous
Barbarbar
Barbar
Anonymous
Barbarbar
Hogehogehoge
Brabrabra

であり、author.plは

#!/usr/bin/perl

my($file, @list, %num);

$file = @ARGV[0];

while (<>){
chomp;
$num{$_}++;
}

@list = sort { $num{$a} <=> $num{$b} } keys %num;

open TEMP, ">temp.txt" or die "can't open";

print TEMP join ', ', @list[0 .. 4];

となつてゐるのだけど、author.plを實行して得られたtemp.txtには、author.txtと全く同じものがコピーされてゐるだけである。どこで間違へたんだらう……。

21:23