Re^5: can any reply out with a better code than this??


go ahead... be a heretic
	PerlMonks

Re^5: can any reply out with a better code than this??

by fenLisesi (Priest)

on Dec 06, 2007 at 08:06 UTC ( #655309=note: print w/replies, xml )

Need Help??

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};
    }
}
[download]

Why don't you post a little more of your code "calling some files"?

Comment on Re^5: can any reply out with a better code than this?? Download Code

In Section Seekers of Perl Wisdom

Log In^?

Node Status^?

node history
Node Type: note [id://655309]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others chanting in the Monastery: (3)

As of 2021-03-07 04:03 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?