メールアドレスの重複削除
while(<>) { foreach( split( /,/, $_ )) { chomp; /<([^>]+)>/ and do { $mail{$1} = $_; } or do { $mail{$_} = $_; } } } print "$_," foreach(sort values %mail);
while(<>) { foreach( split( /,/, $_ )) { chomp; /<([^>]+)>/ and do { $mail{$1} = $_; } or do { $mail{$_} = $_; } } } print "$_," foreach(sort values %mail);