in reply to perl command line arguments
perl-ne 'BEGIN {$arg = shift} split(/,/);if ($_[7] eq $arg){$cnt++;}EN +D{print "There are $cnt things in this file\n";}' arg file_name.txt
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: perl command line arguments
by jluther (Novice) on Jul 26, 2004 at 22:15 UTC |