メアドの集計

今日の捨てコード。

use strict;
use warnings;
use Mail::Address::MobileJp;
use Path::Class;

my $path = shift or die;
my @line = file($path)->slurp( chomped => 1 );
my %count;

for my $line (@line) {
    next unless $line =~ /Sent - (.*)$/;
    my $mail = $1;
    my $carrier = is_imode( $mail )    ? 'I' :
                  is_softbank( $mail ) ? 'V' :
                  is_ezweb( $mail )    ? 'E' : 'N';
    $count{$carrier}++;
}

use Data::Dumper;
print Dumper \%count;

ログファイルからキャリア別にメアド数のカウント。