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

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



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

给你写了个粗略的，能用
命令行是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 ,我刚学习perl,还不熟,我一直没有想到用split.