Lines Matching refs:ARGV
41 while(@ARGV) {42 if($ARGV[0] eq "-d") {43 shift @ARGV;44 $dir = shift @ARGV;46 elsif($ARGV[0] eq "-e") {47 shift @ARGV;48 $extension = shift @ARGV;50 elsif($ARGV[0] eq "-k") {51 shift @ARGV;54 elsif($ARGV[0] eq "-h") {68 elsif($ARGV[0] eq "-v") {363 if(@ARGV) {364 for my $f (@ARGV) {