I'm attempting to find certain keywords inside a perl script. For some reason my Regex wont find keywords followed by a ; and I believe \n
For example if I was searching for the word "print" the below code would find print if the string contained
print ;
but wouldn't if it was
print;
My current code:
$keyword = "print";
if($string =~/\b$keyword\b/g)
{
print "found";
}
use PPI for parsing perl code:
use strict;
use warnings;
use PPI;
my $src = do {local $/; <DATA>};
# Load a document
my $doc = PPI::Document->new( \$src );
# Find all the barewords within the doc
my $words = $doc->find( 'PPI::Token::Word' );
for (@$words) {
print $_->content, "\n";
}
__DATA__
$keyword = "print";
if ($string =~/\b$keyword\b/g)
{
print "found";
}
outputs:
if
print
;? To be honest I'm still surprised \b didn't work, or the below two answers.
How do I ask a good question?if ($keyword =~ m/\bprint\b\s?;?/sim) {
# Successful match
} else {
# Match attempt failed
}
You may need to quote your variable. use \Q and \E in the regex. eg /\Q$var\E/g
UPDATE: this worked
#!/usr/bin/perl -w
use strict;
use warnings;
my $keyword = "print";
my $string = 'print;';
if($string =~/\b$keyword\b/g)
{
print "found";
}
