regexp searches over array slices

Reverend Phil has asked for the wisdom of the Perl Monks concerning the following question:

Hello folks.

I was pulling in a line of data and unpacking it into an array. I was then going to perform some function on the condition that there was any non-space data in two of these array elements. What I had done was:

if(@array[3..4] =~ /\S/) {
    do stuff;
}
[download]

For some odd reason, this was not working. In order to see if I could do this, I had gone directly into the interpreter (dos prompt, type perl) and populated an array and tried out the code. It all worked as I expected, and that's why I used it. For some reason though, I am unable to do this from a script on another Win2k box. I have to write it out as:

if( ($array[3] =~ /\S/) or ($array[4] =~ /\S/) ){
    do stuff;
}
[download]

That works. That's fine. But I'm not happy either way =)
Does anyone know why such a thing would work in the interpreter and not through a script?

Awaiting wisdom,
-=rev=-

Comment on regexp searches over array slices Select or Download Code

Replies are listed 'Best First'.
Re: regexp searches over array slices by japhy (Canon) on Nov 09, 2001 at 03:28 UTC
Well, Perl 6 will let you do: `if (@array[3,4] ^=~ /\S/) { ... }` [download] but in the meantime, `grep()` is the tool for you: `if (grep /\S/, @array[3,4]) { ... }` [download] _____________________________________________________ Jeff`[japhy]`Pinyan: Perl, regex, and perl hacker. `s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;`	[reply] [d/l] [select]
(tye)Re: regexp searches over array slices by tye (Sage) on Nov 09, 2001 at 03:42 UTC
Um, Well, Perl 6 will let you do: `if (@array[3,4] ^=~ /\S/) { ... }` so, in Perl 6, will that mean "and" or "or"? That is, I recall `^=~` being able to work over a list, but what will `if` do with the resulting list? Will `/\S/` be given a list context so that it returns an empty list upon failure so the final list is empty if and only if both matches failed? In other words, does it become this? `if( map {/\S/} @array[3,4] ) {` (which has the same effect as the grep version but for slightly different reasons). So, I think I've answered my own question but I'll post this anyway as I think some might find it interesting. - tye (but my friends call me "Tye")	[reply] [d/l] [select]
Re: (tye)Re: regexp searches over array slices by TheDamian (Vicar) on Nov 09, 2001 at 11:37 UTC
Well, Perl 6 will let you do: `if (@array[3,4] ^=~ /\S/) { ... }` [download] so, in Perl 6, will that mean "and" or "or"? Neither. It's exactly the same as: `if (@array[3] =~ /\S/, @array[4] =~ /\S/) { ... }` which is true if `@array[4]` contains any non-whitespace. That is, I recall ^=~ being able to work over a list, but what will if do with the resulting list? Just what a Perl 5 `if` does with it. In other words, does it become this (a grep-ish `map`)? No, I don't believe so. BTW, what you're looking for is: `if (any(@array[3,4]) =~ /\S/) {...}` or: `if (all(@array[3,4]) =~ /\S/) {...}` both of which (I'm very hopeful) will be standard in Perl 6.	[reply] [d/l] [select]
Re: Re: (tye)Re: regexp searches over array slices by japhy (Canon) on Nov 09, 2001 at 19:49 UTC
Re (tilly) (whatever): regexp searches over array slices by tilly (Archbishop) on Nov 09, 2001 at 22:15 UTC
(tye)Re3: regexp searches over array slices by tye (Sage) on Nov 09, 2001 at 20:36 UTC
Re: (tye)Re3: regexp searches over array slices by TheDamian (Vicar) on Nov 11, 2001 at 02:20 UTC
Some notes below your chosen depth have not been shown here
Re: (tye)Re: regexp searches over array slices by japhy (Canon) on Nov 09, 2001 at 03:49 UTC
I believe it acts like `grep()` here, but I could be wrong. Perhaps we should tap TheDamian. _____________________________________________________ Jeff`[japhy]`Pinyan: Perl, regex, and perl hacker. `s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;`	[reply]
Re: regexp searches over array slices by runrig (Abbot) on Nov 09, 2001 at 03:29 UTC
`if(@array[3..4] =~ /\S/) { do stuff; }` [download] is the same as: `if($array[4] =~ /\S/) { do stuff; }` [download] The slice evaluates to the last element. You can try one of these to 'stringify' the array slice first (assuming $" is set to the default): `if("@array[3,4]" =~ /\S/) { or if ("@array[3,4]" =~ tr/ \t\n//c) {` [download]	[reply] [d/l] [select]
Re: regexp searches over array slices by Fletch (Bishop) on Nov 09, 2001 at 03:30 UTC
Um, there's no difference between putting code into a program and typing it into perl's STDIN yourself. Both are the exact same thing and do the exact same things with your code. Basically the slice appears to be working like the comma operator in scalar context and you're really just doing `$array[4] =~ /\S/`. At any rate, you might try something like: `if( 2 == grep /\S/, @array[3..4] ) { stuff(); }` [download]	[reply] [d/l] [select]


There's more than one way to do things
	PerlMonks