9 |
|
my $windoz = ($^O eq "MSWin32" or $^O eq "MSWin64"); |
10 |
|
use File::Temp qw/ :mktemp /; |
11 |
|
sub userror { |
12 |
< |
print STDERR "Usage: iso2klems [-t][-W][-s \"x=string;y=string\"] [input.dat]\n"; |
12 |
> |
print STDERR "Usage: iso2klems [-t][-f \"x=string;y=string\"][-u unit] [input.dat]\n"; |
13 |
|
exit 1; |
14 |
|
} |
15 |
|
my ($td,$rmtmp,$cmd); |
29 |
|
while ($#ARGV >= 0) { |
30 |
|
if ("$ARGV[0]" eq "-t") { |
31 |
|
$reverse = ! $reverse; |
32 |
< |
} elsif ("$ARGV[0]" eq "-s") { |
32 |
> |
} elsif ("$ARGV[0]" =~ /^-[fs]$/) { |
33 |
|
$wrapper .= " -f \"$ARGV[1]\""; |
34 |
+ |
shift @ARGV; |
35 |
+ |
} elsif ("$ARGV[0]" eq "-u") { |
36 |
+ |
$wrapper .= " -u $ARGV[1]"; |
37 |
|
shift @ARGV; |
38 |
|
} elsif ("$ARGV[0]" =~ /^-./) { |
39 |
|
userror(); |