in reply to Count file lines in a directory tree
How is that different from my @extList = @ARGV; (other than being less efficient)?my @extList; push @extList, $_ for @ARGV;
I'd do
use Getopt::long; my @extList; my $root; GetOptions( 'ext=s' => \@extList, 'root|dir=s' => \$root, ); @extList = @extList ? map { split /,/ } @extList; # in case of --ext foo,bar : qw( pl pm ); $root ||= '.';
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Count file lines in a directory tree
by GrandFather (Saint) on Nov 09, 2005 at 00:50 UTC |