Re: Perl oddities

Replies are listed 'Best First'.
Re^2: Perl oddities by TimToady (Parson) on Mar 01, 2005 at 21:32 UTC
This also is fixed in Perl 6. You can get at the captures as an array if you like, or you can even bind the variables directly within the pattern and bypass the assignment altogether (though you'd still have to declare the variables in that case). Alternately, you can name the captures within the pattern and then get at them as a hash. With some syntactic sugar, `$1` is also called `$<this>`, `$2` is also called `$<that>`, etc., and it's just pulling captures out of the result object without you having to declare anything (except the name bindings within the pattern). A few other pattern matching things have changed too. `:-)`	[reply] [d/l] [select]
Re^2: Perl oddities by gaal (Parson) on Mar 01, 2005 at 19:16 UTC
Often you can just assign the results of the match. Make sure you are in list context if you have only one capture. `my ($this, $that, $some, $other) = /(this)(that).*(some)....(other)$/; my ($cap) = /hello(there)/; # OK my $cap = /hello(there)/; # BUG` [download]	[reply] [d/l]
Re^3: Perl oddities by Anonymous Monk on Mar 02, 2005 at 13:38 UTC
Often you can just assign the results of the match. But not if you use `/g`, as `/g` acts quite differently in scalar and in list context.	[reply]
Re^2: Perl oddities by Not_a_Number (Prior) on Mar 01, 2005 at 19:36 UTC
I generally do as gaal suggests. However, if this were impossible, and if you had a long list of regex capture variables, you could always do: `my ( $this, $that, $some, $other, $foo, $bar, $baz ) = ( $1 .. $+ );` dave	[reply] [d/l]
Re^3: Perl oddities by YuckFoo (Abbot) on Mar 01, 2005 at 20:19 UTC
I am aware of the method suggested by gaal. I usually do not use it because I almost always wrap the regex up with an 'if'. Throw in a my function and it starts to get messy. `# Ugly to me... if (my ($this, $that, $some, $other) = $line =~ /(this).(that).(some +).(other)/) { do_it(); }; # Better, I think... if ($line =~ /(this).(that).(some).(other)/) { my ($this, $that, $some, $other) = ($1, $2, $3, $4); do_it(); }` [download] This business doesn't DWYM: `my ( $this, $that, $some, $other, $foo, $bar, $baz ) = ( $1 .. $+ );` [download] The magical string incrementer is summoned to build a list of strings starting with the first capture, ending with the last. YuckFoo	[reply] [d/l] [select]
Re^4: Perl oddities by ihb (Deacon) on Mar 01, 2005 at 22:10 UTC
You can do `if (my @r = $line =~ /(this).(that).(some).(other)/) { my ($this, $that, $some, $other) = @r; do_it(); }` [download] if you want the conditional expression shorter and don't want to repeat the dollar-digit vars. `ihb` See perltoc if you don't know which perldoc to read!*	[reply] [d/l]
Re^3: Perl oddities by Anonymous Monk on Mar 02, 2005 at 13:47 UTC
That doesn't work: #!/usr/bin/perl use strict; use warnings; $_ = "this that some other foo bar baz"; if (/(this)\s(that)\s(some)\s(other)\s(foo)\s(bar)\s(baz)/) { my ($this, $that, $some, $other, $foo, $bar, $baz) = ($1 .. $+); print "$this, $that, $some, $other, $foo, $bar, $baz\n"; } __END__ Use of uninitialized value in concatenation (.) or string at Use of uninitialized value in concatenation (.) or string at Use of uninitialized value in concatenation (.) or string at Use of uninitialized value in concatenation (.) or string at Use of uninitialized value in concatenation (.) or string at Use of uninitialized value in concatenation (.) or string at Use of uninitialized value in concatenation (.) or string at , , , , , , [download] What does work is: `#!/usr/bin/perl use strict; use warnings; $_ = "this that some other foo bar baz"; if (/(this)\s(that)\s(some)\s(other)\s(foo)\s(bar)\s(baz)/) { my ($this, $that, $some, $other, $foo, $bar, $baz) = map {;no strict 'refs'; $$_} 1 .. $#-; print "$this, $that, $some, $other, $foo, $bar, $baz\n"; } __END__ this, that, some, other, foo, bar, baz` [download] A trick I've been using for quite a long time. (`$#+` instead of `$#-` works as well).	[reply] [d/l] [select]


Do you know where your variables are?
	PerlMonks