# | Line 42 | Line 42 | while ($#ARGV >= 0) { | |
---|---|---|
42 | } | |
43 | shift @ARGV; | |
44 | } | |
45 | + | userror() if ($#ARGV > 0); |
46 | my $funcfile = "$td/isofuncs.cal"; | |
47 | my @vnm = ("Tspec","Tdiff","Rspec","Rdiff"); | |
48 | < | system "cat @ARGV | tabfunc -i @vnm > $funcfile"; |
48 | > | if ($#ARGV == 0) { |
49 | > | system "tabfunc -i @vnm < \"$ARGV[0]\" > $funcfile"; |
50 | > | } else { |
51 | > | system "tabfunc -i @vnm > $funcfile"; |
52 | > | } |
53 | die "Invalid input data, requires 5 columns\n" if ( $? ); | |
54 | open (MYFH, ">> $funcfile"); | |
55 | print MYFH "DEG : PI/180;\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |