Re: [MacPerl-AnyPerl] slurp - line numbering

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.