Re: [MacPerl-AnyPerl] slurp - line numbering

[Bart Lateur]

On Sun, 14 Oct 2001 13:00:15 +0200, allan wrote:

>is it somehow possible - while slurping a file - to still keep track of
>the line numbers?

>if ($txt =~ /55$/m) {
>       print  $.;
>       # should print 3
>}

You can use pos() with the /g modifier, to find the offset of where the
substring ends. Then you'll have to count the newlines in front of it.

        if($txt =~ /55/g) {
             print 1+ substr($txt, 0, pos($txt))=~tr/\n//;
        }

(BTW you won't get a match if your lines look exactly like that.)

-- 
        Bart.