Regular expression & raw data

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

I want print out the match vaule.

But Perl will make B[0] become B0.

Is there any way to slove it?

please help, thanks.

my $line = 'pin B[0] 10';
my $inputName = 'B[0]';
if($line =~ m/[\w]+[\s]+$inputName[\s]+([\.\d]+)/){
   print "$1\n";
}
[download]

Comment on Regular expression & raw data Download Code

Replies are listed 'Best First'.
Re: Regular expression & raw data by Eily (Monsignor) on Apr 07, 2017 at 08:34 UTC
Yes, quotemeta will escape the metacharaters in a string to cancel their special regex meaning. `my $inputName = quotemeta 'B[0]';`	[reply] [d/l]
Re^2: Regular expression & raw data by luckysummer (Novice) on Apr 07, 2017 at 09:32 UTC
I got it, thank you.:-)	[reply]
Re: Regular expression & raw data by haukex (Archbishop) on Apr 07, 2017 at 08:37 UTC
Either quotemeta like Eily showed, or the same thing using `\Q...\E`: `if ( $line =~ /\w+\s+\Q$inputName\E\s+([\.\d]+)/ ) ...` [download]	[reply] [d/l] [select]
Re^2: Regular expression & raw data by luckysummer (Novice) on Apr 07, 2017 at 09:30 UTC
It's useful, thank you.:)	[reply]
Re: Regular expression & raw data by Anonymous Monk on Apr 07, 2017 at 08:34 UTC
quotemeta	[reply]