- 416 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 15:43:02 ]
- >>414
てことはまず日で分けて、その中に同じアドレスがあっても1つで出すということだな。
じゃあこれを参考に作れ。
my %data;
while (<>) {
chomp;
if (/^([^,]+),(.+)$/) {
$data{$1}{$2} = 1;
}
}
for my $day (sort keys %data) {
for my $addr (sort keys %{$data{$day}}) {
print "$day,$addr\n";
}
}
