I usually try and use as few modules as possible as well, especially for
simple tasks. I would suggest something like this maybe...
Assuming %Skip is your hash of users to skip over...
my ($user) = ($email =~ /[EMAIL PROTECTED]/);
unless ($Skip{$user}) {
push(@emails,$email);
}
Hope this helps,
Chad Eldridge
Mathew wrote:
I'm hesitant to bring another module into this. I don't want to make it
any more complicated than it needs to be.
Mathew
Adriano Ferreira wrote:
On 2/2/07, Mathew Snyder <[EMAIL PROTECTED]> wrote:
I have a script which extracts email addresses from a web page, pushes
them into
an array and then prints them out before asking if I wish to perform
the work on
them that is required.
What I would like to do is compare the username portion of the email
address to
a list of usernames in a hash to determine if the email address should be
skipped. I just don't know how to write out the regex for that. The
line I
have so far is
push @emails, $email if $email =~ m/[EMAIL PROTECTED]/gmx unless ($email =~ m/^
I don't know how to further this to accomplish what I need. Can
someone please
help.
Be lazy. Use Email::Address to take care of the parsing of the e-mail
addresses and many subtleties in the specification you even didn't
want to know about.
use Email::Address;
my $addr = Email::Address->new(undef, '[EMAIL PROTECTED]');
my $user = $addr->user; # this is "casey"
Regards,
Adriano Ferreira.
Thanks,
Mathew
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
