Mega Code Archive

 

Categories / Perl / File

 

Numbering Lines

#!/usr/bin/perl use warnings; use strict; open FILE, "nlexample.txt" or die $!; my $lineno = 1; while (<FILE>) {     print $lineno++;     print ": $_"; }