in reply to Re^4: can any reply out with a better code than this??
in thread can any reply out with a better code than this??
Do you mean something like this?
use strict; my $string = 'ri\d+'; while (my $line = <>) { if ($line =~ m{ ( ( \Q$string\E ){3} ) }xms) { print $line; printf qq{\tMatched "$2" x 3: "$1"\n}; } }
Why don't you post a little more of your code "calling some files"?
|
---|
In Section
Seekers of Perl Wisdom