#open the 2 files for input and the second for output open (FIN, "@ARGV[0]") || (die "No input file"); while(<FIN>){ if(s#((\b\w*\b\s)(\b\w*\b\s)?(\b\w*\b\s)(\<)(\b\w*((\.)?(\w*)? +)*[@]\w*\.\w*((\.)?(\w*)?)*\b)(\>))# $1 .($var =$2.$3.$4."\t".$6) #eg +){} elsif(s#((\b\w*\b)(\,\s)(\b\w*\b\s)(\b\w*\b\s)?((\<)(\b\w*((\. +)?(\w*)?)*[@]\w*\.\w*((\.)?(\w*)?)*\b)(\>)))# $1.($var = $4.$5.$2."\t +".$8) #eg){} elsif(s#((\")(\b\w*\b\s)(\b\w*\b\s)?(\b\w*\b)(\")(\s)(\<)(\b\w +*((\.)?(\w*)?)*[@]\w*\.\w*((\.)?(\w*)?)*\b)(\>))# $1.($var =$3.$4.$5. +"\t".$9) #eg){} elsif(s#((\")(\b\w*\b)(\,\s)(\b\w*\b)(\s\b\w*\b)?(\")(\s)((\<) +(\b\w*((\.)?(\w*)?)*[@]\w*\.\w*((\.)?(\w*)?)*\b)(\>)))# $1.($var = $5 +." ".$6.$3."\t".$11) #eg){} elsif(s#((\")(\b\w*\b\s)(\b\w*\b\s)?(\b\w*\b)(\")(\s)(\[)(\b\w +*((\.)?(\w*)?)*[@]\w*\.\w*((\.)?(\w*)?)*\b)(\]))# $1.($var =$3.$4.$5. +"\t".$9) #eg){} elsif(s#((\")(\b\w*\b)(\,\s)(\b\w*\b)(\s\b\w*\b)?(\")(\s)((\[) +(\b\w*((\.)?(\w*)?)*[@]\w*\.\w*((\.)?(\w*)?)*\b)(\])))# $1.($var = $5 +." ".$6.$3."\t".$11) #eg){} elsif(s#((\")(\b\w*\b\s)(\b\w*\b\s)?(\b\w*\b\s)(\[)(\b\w*((\.) +?(\w*)?)*[@]\w*\.\w*((\.)?(\w*)?)*\b)(\])(\"))# $1.($var =$3.$4.$5."\ +t".$7) #eg){} elsif(s#((\")(\b\w*\b)(\,\s)(\b\w*\b)(\s\b\w*\b)?(\s)((\[)(\b\ +w*((\.)?(\w*)?)*[@]\w*\.\w*((\.)?(\w*)?)*\b)(\])(\")))# $1.($var = $5 +." ".$6.$3."\t".$10) #eg){} #hash my emails $hashed{$var}++; } #print out all the emails for $var (sort keys %hashed){ print"$var\n"; }
In reply to finding emails by bdawg613
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |