Re: How does this regex not match?

quotemeta the pattern variable and use it to match with the string
(will work for your case)

perl -ne "$var = quotemeta('my_stuff[1]=400'); print if /$var/ "
[download]

Vivek
-- 'I' am not the body, 'I' am the 'soul/consciousness', which has no beginning or no end, no attachment or no aversion, nothing to attain or lose.

Comment on Re: How does this regex not match? Download Code

Replies are listed 'Best First'.
Re^2: How does this regex not match? by AnomalousMonk (Archbishop) on Feb 15, 2010 at 20:39 UTC
I am informed by /msg from targetsmart that the example code in Re: How does this regex not match? works in Perl 5.6.1, Windows XP, to demonstrate the operation of quotemeta. I cannot see how, but I cannot test it in 5.6.1 (or even 5.8.x at the moment). It does not work in Strawberry 5.10.1.0, Windows 7. The following example code works to demonstrate `quotemeta` in Strawberry 5.10.1.0: `>perl -wMstrict -le "my $var = quotemeta 'my_stuff[1]'; print 'match' if 'my_stuff[1]=400' =~ /$var/; " match` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: How does this regex not match?
by AnomalousMonk (Archbishop) on Feb 15, 2010 at 20:39 UTC

I am informed by /msg from targetsmart that the example code in Re: How does this regex not match? works in Perl 5.6.1, Windows XP, to demonstrate the operation of quotemeta. I cannot see how, but I cannot test it in 5.6.1 (or even 5.8.x at the moment). It does not work in Strawberry 5.10.1.0, Windows 7.

The following example code works to demonstrate quotemeta in Strawberry 5.10.1.0:

>perl -wMstrict -le
"my $var = quotemeta 'my_stuff[1]';
 print 'match' if 'my_stuff[1]=400' =~ /$var/;
"
match
[download]

[reply]
[d/l]
[select]