| rjw | 6c1fd8f | 2022-11-30 14:33:01 +0800 | [diff] [blame] | 1 | #!/usr/local/bin/perl |
| 2 | #$file = $ARGV[0]; | ||||
| 3 | #$FIXPATH = $ARGV[1]; | ||||
| 4 | #$RELEASE_DIR = $ARGV[2]; | ||||
| 5 | $OUTPUT = $ARGV[0]; | ||||
| 6 | #print "$OUTPUT\n"; | ||||
| 7 | shift(@ARGV); | ||||
| 8 | |||||
| 9 | $ITEM = $ARGV[0]; | ||||
| 10 | #print "$ITEM\n"; | ||||
| 11 | shift(@ARGV); | ||||
| 12 | |||||
| 13 | @INPUT = @ARGV; | ||||
| 14 | #print "@INPUT\n"; | ||||
| 15 | |||||
| 16 | #@new_output = sort @INPUT; | ||||
| 17 | #print "@new_output\n"; | ||||
| 18 | |||||
| 19 | if(-e $OUTPUT) { | ||||
| 20 | open(W,">>$OUTPUT") or die "Cannot open $OUTPUT"; | ||||
| 21 | } else { | ||||
| 22 | open(W,">$OUTPUT") or die "Cannot open $OUTPUT"; | ||||
| 23 | } | ||||
| 24 | |||||
| 25 | print W "$ITEM = "; | ||||
| 26 | foreach (@INPUT) { | ||||
| 27 | print W "$_ "; | ||||
| 28 | } | ||||
| 29 | print W "\n"; | ||||
| 30 | close(W); | ||||
| 31 | |||||
| 32 | |||||
| 33 | |||||
| 34 | |||||