user-tools/mail-extract-addresses

   1 #!/usr/bin/env perl
   2
   3 #use Data::Dumper;
   4
   5 while(<STDIN>)
   6 {
   7         chomp;
   8
   9         while(
  10          /\s*,?\s*[^,]*?<([^\s\@""''<>,]+@[^\s\@""''<>,]+)>/m or
  11          /\s*,?\s*[^,]*?([^\s\@""''<>,]+@[^\s\@""''<>,]+)/m or
  12          /\s*,?\s*[""].*?[""]\s*<([^\s\@""''<>,]+@[^\s\@""''<>,]+)>/m or
  13          /\s*,?\s*[''].*?['']\s*<([^\s\@""''<>,]+@[^\s\@""''<>,]+)>/m
  14         )
  15         {
  16                 #print STDERR Dumper {"before"=>$`,"match"=>$&,"address"=>$1,"after"=>$'};
  17                 print "$1\n";
  18                 $_ = $';
  19         }
  20 }