can I find a "string" in a file and print the matching string's line using Perl

[jaigs_27]

Do we have any thing in place of bash's gerp in perl.

I want to search a "string" in a file and then want to print whole line in of that matching "string".

[Javasnob]

You could do this:

my $pat = qr/\Q$string\E/;
my $fh;
open $fh, $pathToFile or die "Unable to open $pathToFile: $!\n";

while(<$fh>) {
    chomp;
     print "$_\n" if(/$pat/);
}
close $fh;

That code will search for a string as-is. Let me know if you have any questions; most of them can probably answered by perlre - perldoc.perl.org.

[jaigs_27]

Thanks for helping again,

I have used grep and its working fine.

while (<*.txt>){
$test = `grep -ir "provide" $_`;
}

Do you think it may give problem later in future???

[Javasnob]

That shouldn't be a problem, but just a point of style: You shouldn't use the diamond glob operator; it's much better/clearer to use glob().

[jaigs_27]

If line is following
#decided: Answer Yes
or
provision: ST_SYS

then from first line I want only: "Answer Yes"
and from second line: "ST_SYS"

I used following trick to get that

$desc =~ s/^#decided:\s+//i;
$test =~ s/^provision\s+//i;

but in below case its failing, its giving me below item instead of blank lines
#decided:
provision:

Please suggest