mailall.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 my $data_dir = shift @ARGV;
   5
   6 my $n = 0;
   7 my %address;
   8
   9 foreach my $file ( glob("$data_dir/*") ) {
  10   open(FILE,"<$file") or die $!;
  11   while (<FILE>) {
  12     /\b(\w[\w\-\.\+]*\@(([\w\.\-]+\.)+\w+))\b/ or warn "can't parse line: $_\n";
  13     $address{lc($1)}=1;
  14     $n++;
  15   }
  16 }
  17
  18 print scalar(keys(%address)), " ($n)\n";
  19 print join(",",keys %address),"\n";
  20