Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるスクリプトを作るスレ at TECH

416:デフォルトの名無しさん
06/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";
　}
}

次ページ

続きを表示

1を表示