- 论坛徽章:
- 0
|
[user@host ~]$ cat f
aa # dafdef # aa@sina.com
fadfkjwef # adfeijmf # asdfadsf@gmail.com
fadf # qweriunf # afdaksdf@tom.com
[user@host ~]$ cat g
zdg # 12344321 # zdg@csdn.net
LaoZheng # 670203313747 # chengming_zheng@163.com
fstao # 730413 # fstao@tom.com
huwolf # 2535263 # hujiye@263.net
cadcjl # KIC43dk6! # ccedcjl@21cn.com
[user@host ~]$ cat f | ./t.pl
gmail.com=1
sina.com=1
tom.com=1
[user@host ~]$ cat g | ./t.pl
=1cn.com
=1m.com
=13.net
=13.com
=1dn.net
[user@host ~]$ cat t.pl
#!/usr/bin/perl
use strict;
use warnings;
my %email;
my $pos;
my $domain;
while (<STDIN>) {
chomp;
my @tmp = split /\s#\s/;
$pos = index($tmp[2], '@');
$domain = substr($tmp[2], $pos + 1);
$email{$domain} = 0 if (not exists $email{$domain});
++$email{$domain};
}
foreach my $site (keys %email) {
print $site.'='.$email{$site}."\n";
}
[user@host ~]$
|
|