Thanks!my $url = param('url'); MY_PARSE($url); sub MY_PARSE { my $listing = shift; open LISTING, "/usr/local/bin/lynx -source $listing|" or die "can't op +en HANDLE_IN $!"; my $count; @line = <LISTING>; foreach $line (@line) { my @addrs = Mail::Address->parse($line); foreach $addr (@addrs) { print $addr->address(), "\n"; } } }
In reply to parsing emails w/ MAIL::ADDRESS by mkahn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |