in reply to Re: Line Renumbering
in thread Line Renumbering

How about something simple like: #!perl $myfile="c:/myfile.txt"; open MYFILE, $myfile or die "Cannot open $myfile for read :$!"; while (<MYFILE>) { print "N1 $. $_"; } while (<MYFILE>) { print "N $. $_"; }

Replies are listed 'Best First'.
Re: Re: Re: Line Renumbering
by spiderman (Monk) on Aug 29, 2002 at 19:18 UTC 
    OOPS My Bad- the above post shoulda been:
#!perl 
$myfile="c:/myfile.txt"; 
open MYFILE, $myfile or die "Cannot open $myfile for read :$!"; 

while (<MYFILE>)
{
  print "N1 $. $_"; 
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom