moderated, pattern matching dynamic strings w/ regex ending in $ problem

by **rader** » Tue, 03 May 2005 04:31:59 GMT

I'm seeing a simple, ah, problem with perl 5.8.0...

chive(rader): perl -v | head -2 | tail -1
This is perl, v5.8.0 built for i386-linux-thread-multi

chive(rader): cat crud
#!/usr/bin/perl
$a = 'fuBar';
$b = 'Bar$';
$a_new = `echo -n $a`;
$b_new = `echo -n $b`;
if ( $a_new =~ /$b_new/ ) {
print "match\n";
} else {
print "no match?!\n";
}

chive(rader): ./crud
no match?!

Anybody know of a workaround? The code above behaves as expected
with 5.6.x. Could this actually be a bug?

steve
- - -
systems & network manager
high energy physics
university of wisconsin

by **wInuX** » Tue, 03 May 2005 14:13:15 GMT

r> I'm seeing a simple, ah, problem with perl 5.8.0...

r> chive(rader): perl -v | head -2 | tail -1
r> This is perl, v5.8.0 built for i386-linux-thread-multi

r> chive(rader): cat crud
r> #!/usr/bin/perl
r> $a = 'fuBar';
r> $b = 'Bar$';
r> $a_new = `echo -n $a`;
r> $b_new = `echo -n $b`;
r> if ( $a_new =~ /$b_new/ ) {
r> print "match\n";
r> } else {
r> print "no match?!\n";
r> }

r> chive(rader): ./crud
r> no match?!

r> Anybody know of a workaround? The code above behaves as expected
r> with 5.6.x. Could this actually be a bug?

$ perl -v
This is perl, v5.8.0 built for MSWin32-x86-multi-thread

$ perl crud.pl
match

may be problem in `echo -n $a`. try to print $a_new and $b_new to stdout.

by **Andrei Voropaev** » Tue, 03 May 2005 15:32:29 GMT

Have you tried to print out the values that you get from shell? Since
your variable contains '$' this might get into some conflict with your
shell, so that $b_new will contains something different than Bar$.

Anyway, this particular script runs with all perl versions that I have
(5.8.1, 5.8.5) and all shells that I use (bash, zsh).

--
Minds, like parachutes, function best when open

by **rader** » Wed, 04 May 2005 00:14:28 GMT

nope, it's not a echo -n nor a $ in echo problem... and, btw, it works
with 5.004 and 5.6.1 (sol7 and rhl73)... but not with 5.8.0 on rhel3...

steve
- - -

chive(rader): perl -v | head -2 | tail -1
This is perl, v5.8.0 built for i386-linux-thread-multi

chive(rader): cat crud
#!/usr/bin/perl -w
use strict;
my $a = 'fuBar'; my $a_new = `echo -n $a`;
my $b = 'Bar$'; my $b_new = `echo -n $b`;
if ( $a ne $a_new || $b ne $b_new ) { print "oops!\n"; }
print "$a_new =~ /$b_new/...\n";
if ( $a_new =~ /$b_new/ ) {
print "match\n";
} else {
print "no match?!\n";
}

chive(rader): ./crud
fuBar =~ /Bar$/...
no match?!

ginseng(rader): perl -v | head -2 | tail -1
This is perl, v5.6.1 built for i386-linux

ginseng(rader): cat crud
#!/usr/bin/perl -w
use strict;
my $a = 'fuBar'; my $a_new = `echo -n $a`;
my $b = 'Bar$'; my $b_new = `echo -n $b`;
if ( $a ne $a_new || $b ne $b_new ) { print "oops!\n"; }
print "$a_new =~ /$b_new/...\n";
if ( $a_new =~ /$b_new/ ) {
print "match\n";
} else {
print "no match?!\n";
}

ginseng(rader): ./crud
fuBar =~ /Bar$/...
match

by **Ernest Lergon** » Sat, 07 May 2005 20:24:21 GMT

Perl 5.8.0 had some problems with regex. You should upgrade your Perl.

See: http://guest: XXXX@XXXXX.COM /rt3/index.html?q=19767

Ernest

moderated, pattern matching dynamic strings w/ regex ending in $ problem

moderated >> pattern matching dynamic strings w/ regex ending in $ problem

moderated >> pattern matching dynamic strings w/ regex ending in $ problem

moderated >> pattern matching dynamic strings w/ regex ending in $ problem

moderated >> pattern matching dynamic strings w/ regex ending in $ problem

moderated >> pattern matching dynamic strings w/ regex ending in $ problem