Re^2: concatenation through substitution?

in reply to Re: concatenation through substitution?
in thread concatenation through substitution?

or

   1: die 'insufficient arguments' unless @ARGV;
   2: open(IN, $ARGV[0]) or die "unable to open '$ARGV[0]': $!";
   3: while (my $line = <IN>) {
   4:     printf "%4d: %s", $., $line;
   5: }
   6: close IN;
[download]

Comment on Re^2: concatenation through substitution? Download Code

Replies are listed 'Best First'.
Re^3: concatenation through substitution? by trammell (Priest) on Dec 31, 2004 at 00:33 UTC
Or for that matter: `while (<>) { printf '%4d: %s', $., $_ }` [download]	[reply] [d/l]

In Section Seekers of Perl Wisdom