Hi Guys,
I have a problem with e-mail address's and an array. I have some code that
will be a documentation spider to go through all our technical
documentation, extract e-mail address's and attempt to sort and exclude
certain e-mails/patterns. All documentation is in plain text, so no filters,
etc are needed.
The first array will have every e-mail address found pushed into it.
The second array will be an "exclude" array, in which I would like to search
through, and remove from the "email" array, if found.
The following code will loop through the "email" array and the "exclude"
array, and successfully removes the emails from the "email" array that are
specified in the "exclude" array:
my %found = ();
foreach (@emails) { $found{$_}++ };
foreach (@exclude) { exists $found{$_} and delete $found{$_} }
BUT, if I print out the hash with this:
foreach my $key (keys %found) {
print "$key\n";
}
The output comes up messed up for example:
chris.com
instead of:
[EMAIL PROTECTED]
Why is this happening? Also, if I wanted to add for example: info without
@domain.xxx to the "exclude" array, how can I remove any e-mail in the
"emails" array based on a partial match?
Thanks so much!
-c
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
