[Israel.pm] matching in line (fwd) on behalf of Ernst, Yehuda.B

Yosef Meller mellerf at netvision.net.il
Thu Dec 2 08:16:57 PST 2004

> From: "Ernst, Yehuda" <yernst at nds.com>

> Hello!
> I need to read a text file line by line and check every line if it has 5 
> same chars together in it.
> if the file looks like this
> lksdjvhhgaeifgas;dfjnafb
> dlsjfhgq30874riwufh;wdofia
> jsg55555dsbafoiewury20348r7y2-3495
> only line 3 will be printed
> is there a fast way using pattern match to do it?

perl -ne 'print if /\d{5}/'

Is this what you wanted?

    Keep on rocking in a free world!

More information about the Perl mailing list