| changeset 295 | a215187752cf |
| parent 294 | 60fee4a35d67 |
| child 296 | 7f69aca41ac4 |
| 294:60fee4a35d67 | 295:a215187752cf |
|---|---|
40 GetOptions(( |
40 GetOptions(( |
41 'missing!' => \$missing, |
41 'missing!' => \$missing, |
42 'basedir=s' => \$basedir, |
42 'basedir=s' => \$basedir, |
43 'help!' => \$help |
43 'help!' => \$help |
44 )); |
44 )); |
45 my @logfiles = @ARGV; |
45 my @logfiles = (); |
46 for my $logfilesarg (@ARGV) |
|
47 { |
|
48 push(@logfiles, glob($logfilesarg)); |
|
49 } |
|
46 |
50 |
47 if ($help) |
51 if ($help) |
48 { |
52 { |
49 print <<_EOH; |
53 print <<_EOH; |
50 UH parser |
54 UH parser |