Perl - 如何计算和打印电子邮件地址数组中域的出现次数？

Question

我已经为此苦苦挣扎了几天，似乎无法弄清楚。

我有一组电子邮件地址，是通过 while 循环中的 push(@emails,$email) 创建的。

我正在尝试创建一个唯一域列表，其中每个域的出现次数在数组中。

按出现次数排序。

因此，如果数组 @emails 具有：

[电子邮件受保护] [电子邮件受保护] [电子邮件受保护] [email protected]

我可以打印：

yadoo.com 2
geemail.net 1
zoohoo.org 1

我根据电子邮件找到了这个示例一个文件，但是，超出了我的能力范围。有人可以帮助我编写一个可以与电子邮件地址数组一起使用的更详细的代码示例吗？

perl -e 'while(<>){chomp;/^[^@]+@([^@]+)$/;$h{$1}++;}
foreach $k (sort { $h{$b} <=> $h{$a} } keys %h)  {print $h{$k}." ".$k."\n";} infile

我还尝试过：（更多的是我缺乏理解的程度）

foreach my $domain (sort keys %$domains) {
  print "$domain"."=";
  print $domains->{$domain}."\n";
};

并且

my %countdoms;
$countdoms{$_}++ for @domains;
print "$_ $countdoms{$_}\n" for keys %countdoms;

我在许多不同尝试中得到的最佳结果是总计数（这是1812（准确计数），旁边有一个数字2。我很接近，可能吗？

Answer 1

让我解释一下您的代码示例在做什么，而不是给您另一个答案：

while(<>){chomp;/^[^@]+@([^@]+)$/;$h{$1}++;}
foreach $k (sort { $h{$b} <=> $h{$a} } keys %h)  {print $h{$k}." ".$k."\n";} 

第一行计算文件中电子邮件的域。

while(<>) 逐行迭代输入文件。输入文件是作为参数传递的文件，如果没有传递参数，则输入文件是标准输入。每行都放在 $_ 中。

chomp; 只是删除 $_ 末尾的换行符。

/^[^@]+@([^@]+)$/ 是解析出域的正则表达式，应用于$_。它检查第一部分中没有“@”的内容，然后检查“@”，最后一部分中没有“@”的内容。它会记住最后一部分，并将其存储在$1中。 ^ 和 $ 分别代表字符串的开头和结尾。

$h{$1}++; 使用域（在 $1 中）来增加哈希 %h 中的计数。即使它不存在，这也可以工作，因为 undef 在这里的行为类似于 0。

为了使其适用于您的列表，您只需执行

foreach(@emails) {/^[^@]+@([^@]+)$/;$h{$1}++;}

第二行打印哈希 %h 中的域。

排序 { $h{$b} <=> $h{$a} }keys %h 使用比较函数 $h{$b} <=> 返回按出现次数降序排序的域列表$h{$a} 查找计数。请注意，它是 b <=> a，不是<=>； b，这使其下降。

第 2 行的其余部分打印结果。

Answer 2

如果您的电子邮件地址填充在数组中，这将为您提供每个域的计数。我相信有人可以制作出更漂亮的东西！

my @emails = ('[email protected]','[email protected]','[email protected]','[email protected]');

my %domainCount;

foreach(@emails){
    if ($_ =~ /@(\w+.*)/){
        $domainCount{$1}++;
    }
}

for my $domain (sort { $domainCount{$b} <=> $domainCount{$a}} keys %domainCount ){
    print "$domain - $domainCount{$domain}\n";
}

Answer 3

这有点粗糙，因为我对 Perl 很生疏，但这应该可以完成工作：

use strict;
$|=1;
my ($dom, %hsh);
my @arr = ('[email protected]', '[email protected]', '[email protected]', '[email protected]');
foreach (@arr) {
    ($dom) = ($_ =~ /.*\@(.*)$/);
    $hsh{$dom}++;
}
foreach (keys %hsh) {
    print ("$_:$hsh{$_}\n");
}

Answer 4

另一种变化：

use strict;
use warnings;

my @array 
    = qw<[email protected] [email protected] [email protected] [email protected]>
    ;
my %dom_count;
$dom_count{ $_ }++ foreach map { ( split '@' )[-1] } @array;
foreach my $pair ( 
    sort { $b->[1] <=> $a->[1] or $a->[0] cmp $b->[0] } 
    map  { [ $_ => $dom_count{ $_ } ] } keys %dom_count 
    ) { 
    print "@$pair\n";
}