use re 'eval'

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

Q: Why isn't $1 set on the first pass?

#!/usr/bin/perl5.005
 
use strict;
use re 'eval';
 
for (("a", "b", "c")) {
        m# (\w) (?{ print $1 }) #ox;
        print "\n---\n";
}
[download]

output:

 

---
b
---
c
---
[download]

Any insight would be appreciated... (& you could save the life of a beautiful reg-ex!)

Comment on use re 'eval' Select or Download Code

Replies are listed 'Best First'.
Re: use re 'eval' by wine (Scribe) on Jul 21, 2001 at 23:19 UTC
On CPAN the use of `(?{})` is called "highly experimental" It works for perl 5.6 on both Linux and DEC/OSF, though. So, I guess it was a bug in the 5.005 release. I guess you have to upgrade or just have to go with the more simple and boring: `use strict; for ("a","b","c") { print $_ . "\n---\n"; } # ;-)` [download] - Good luck	[reply] [d/l]
Re: Re: use re 'eval' by Anonymous Monk on Jul 22, 2001 at 00:08 UTC
`(?{ thanks })`	[reply] [d/l]
Re: use re 'eval' by Dominus (Parson) on Jul 22, 2001 at 06:40 UTC
It's a bug. It was fixed in 5.005_53. By the way, `use re 'eval'` isn't doing anything there. You can leave it out. -- Mark Dominus Perl Paraphernalia	[reply]
Re: use re 'eval' by coolmichael (Deacon) on Jul 22, 2001 at 05:40 UTC
I dunno. Sorry. I can tell you it works with ActiveState bulid 626 (Perl version 5.6.1) Michael update: It's broken with 5.005_03 built for i386-freebsd update again:keep reading. Dominus has the answer.	[reply]
Re: use re 'eval' by SparkeyG (Curate) on Jul 21, 2001 at 22:48 UTC
As to why it won't work for you, I can't say; but it works on both perl 5.6.1 for cygwin and 5.6.0 on linux. May be a version problem. --SparkeyG	[reply]