On Thu, 09 Feb 2006 11:23:48 -0700, Wayne Simmons wrote:
>>As of 15 minutes ago, suddenly the n+1'th member of the array is MATCHING
> $value. Here's an >iteration of the debug prints from the above loop...
>>... against ><
>>found match! >RX_43_0_0_001.gho< vs. ><
>
> looks more like someone is
> Help me Mister Wizard!
>
> I'm testing for membership in an array, using:
>
> sub listed
> {
> my $value = shift;
> my @ary = @_;
>
>my $rtn = 0;
>
>print $NEW_INIFILE "Testing value >$value<\n";
>
>for my $x (0 .. $#ary) {
>
> print $NEW_INIFILE "... against >$ary[$x][1]<
[EMAIL PROTECTED] schreef:
> I did NOT know that
> anything matched nothing. Well, at least now I know what I'm
> running into.
But why do you want to use a regex there? Try 'eq'.
--
Affijn, Ruud
"Gewoon is een tijger."
___
ActivePerl mailing list
Dr.Ruud:
>>for my $x (0 .. $#ary) {
>
> This loops 1 time too much
Oops, not true, sorry. As Wayne wrote, your array has an extra (empty)
value.
--
Affijn, Ruud
"Gewoon is een tijger."
___
ActivePerl mailing list
ActivePerl@listserv.ActiveState
[EMAIL PROTECTED] wrote: [EMAIL PROTECTED] wrote on 02/09/2006 12:39:15 PM:> > > Today's Topics:> > 5. Help! My regexp has gone insane! ([EMAIL PROTECTED])> > > --> > Message: 5> Date: Thu, 9 Feb 2006 11:13:03 -0600> From: [E
[EMAIL PROTECTED] wrote on 02/09/2006 12:39:15
PM:
>
>
> Today's Topics:
>
> 5. Help! My regexp has gone insane! ([EMAIL PROTECTED])
>
>
> --
>
> Message: 5
> Date: Thu, 9 Feb 2006 11:13:03 -0600
> From: [EMAIL PROTE
>>Otherwise it looks like that last value is empty, and of
>>course *anything* =~ //
Whoa! Guess the hairball's twixt mine ears!! I did NOT know that anything matched nothing. Well, at least now I know what I'm running into.
Is it possible that shifting the array left @ary[$#ary] as a not
Deane.Rothenmaier:
Please send plain-text messages, not MIME-encoded.
>>for my $x (0 .. $#ary) {
This loops 1 time too much, so change to:
for my $x (0 .. $#ary-1) {
or better, to
for my $a (@ary) {
and change every '$ary[$x]' to '$a'.
>> print $NEW_INIFILE "... ag
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: Thursday, February 09, 2006 10:13 AM
>As of 15 minutes ago, suddenly the n+1'th member of the array is MATCHING
$value. Here's an >iteration of the debug prints from the above loop...
>... against ><
>found match!
Help me Mister Wizard!
I'm testing for membership in an array, using:
sub listed
{
my $value = shift;
my @ary = @_;
my $rtn = 0;
print $NEW_INIFILE "Testing value >$value<\n";
for my $x (0 .. $#ary) {
print $NEW_INIFILE "... against >$ary[$x][1]<\n";
if ($value =~ /$ary
10 matches
Mail list logo
