Re: Binding array to pattern
- From: "Shmuel (Seymour J.) Metz" <spamtrap@xxxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Fri, 16 Jun 2006 13:15:02 -0300
In <slrne937sq.3uc.tadmc@xxxxxxxxxxxxxxxxxxxx>, on 06/15/2006
at 12:57 PM, Tad McClellan <tadmc@xxxxxxxxxxxxxx> said:
You flipped the lines from what you posted before,
I edited the text of the article instead of clipping from my code, and
inadvertently left some out. That should be
my $email_contact = $email_info->{$_} ;
push @Contacts, @{$email_contact};
my $scalarContacts="@{$email_contact}";
push @abuseContacts, @{$email_contact}
if (/abuse/ or $scalarContacts =~ /abuse/);
if grep /abuse/, $_, @$emails;
How is that better than scanning the derived scalar? Although it might
be better to do
my $scalarContacts="$_ @$email_contact";
push @abuseContacts, @$email_contact
if $scalarContacts =~ /abuse/;
--
Shmuel (Seymour J.) Metz, SysProg and JOAT <http://patriot.net/~shmuel>
Unsolicited bulk E-mail subject to legal action. I reserve the
right to publicly post or ridicule any abusive E-mail. Reply to
domain Patriot dot net user shmuel+news to contact me. Do not
reply to spamtrap@xxxxxxxxxxxxxxxxxx
.
- Follow-Ups:
- Re: Binding array to pattern
- From: Tad McClellan
- Re: Binding array to pattern
- References:
- Binding array to pattern
- From: Shmuel (Seymour J.) Metz
- Re: Binding array to pattern
- From: Gunnar Hjalmarsson
- Re: Binding array to pattern
- From: Shmuel (Seymour J.) Metz
- Re: Binding array to pattern
- From: Uri Guttman
- Re: Binding array to pattern
- From: Shmuel (Seymour J.) Metz
- Re: Binding array to pattern
- From: Tad McClellan
- Binding array to pattern
- Prev by Date: Re: Perl Web Developer Wanted!
- Next by Date: Search by keyword feature
- Previous by thread: Re: Binding array to pattern
- Next by thread: Re: Binding array to pattern
- Index(es):
Relevant Pages
|
Loading