求助,如何实现同域名 email分类?

hhhnano

查找文件mail.txt中每个域名对应的邮件地址，相同类型的排在一起,然后输出到result.txt文件中。
例如：
qwe@hotmail.com
....
dfgf@hotmail.com



dff@163.com
....
hhhh@163.com
......

hdc1112

给你写了个粗略的，能用
命令行是perl mail.pl mail.txt > result.txt

####mail.pl####

while(<>) {
        next if /^$/;
        chomp;
        @buf=split /@/;
        next unless @buf eq 2;
        push @{$mailhash{$buf[1]}},$buf[0];
}
foreach(sort keys %mailhash) {
        my $h=$_;
        foreach(sort @{$mailhash{$h}}) {
                print $_ . "@" . "$h\n";
        }
}

[ 本帖最后由 hdc1112 于 2008-8-8 07:33 编辑 ]

hhhnano

多谢hdc1112 ,我刚学习perl,还不熟,我一直没有想到用split.