Re^3: getting a regex to return an array of matches?

Never do
my $var = ... if ...;,
my $var = ... unless ...;,
my $var = ... for ...;,
my $var = ... foreach ...; or
my $var = ... while ...;

Split them into two statements, like
my $var; $var = ... if ...;.

Update: Well, this is bothering me. I can't remember why, and I can't find an example where the above fails.

Update: diotalevi, which I believe has a knowledge of Perl guts, mentions: "my() has a runtime effect. You *always* (unless you're doing something freakish) want that to happen. The my $var STATEMENT-MODIFIER allows the runtime part of my() to potentially not happen." In other words, it sounds like doing any of the above leaves perl in an unstable state.

Comment on Re^3: getting a regex to return an array of matches? Select or Download Code

Replies are listed 'Best First'.

Re^4: getting a regex to return an array of matches?
by rmexico (Novice) on Feb 14, 2006 at 18:52 UTC

my $var = $1 if ($filecontents =~ /SOME_REGEX(.*?)$/g);
if($var) {
   ... proceed w/ usage of $var
}
[download]

[reply]
[d/l]

Re^5: getting a regex to return an array of matches?

by ikegami (Patriarch) on Feb 14, 2006 at 19:03 UTC

my

my ($var) = $filecontents =~ /SOME_REGEX(.*?)$/g;
if (defined $var) {
   ... proceed w/ usage of $var
}
[download]

[reply]
[d/l]
[select]

Re^5: getting a regex to return an array of matches?

by PodMaster (Abbot) on Feb 15, 2006 at 05:13 UTC

perlsyn

NOTE: The behaviour of a "my" statement modified with a statement modifier conditional or loop construct (e.g. "my $x if ...") is undefined. The value of the "my" variable may be "undef", any previously assigned value, or possibly anything else. Don't rely on it. Future versions of perl might do something different from the version of perl you try it out on. Here be dragons.

'my' buggy... and my $cache = undef if undef; hit upon that.

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

[reply]