#!perl #
# # Perl script 'append.pl' to append the file specified by the second # command-line argument to the file specified by the first command-line # argument. It does not work correctly with binary data under MS DOS. # # Syntax: # append.pl "file1" "file2" # File "file2" will be appended to the file "file1". # # ====================================================================== # Main program 'append.pl': # ~~~~~~~~~~~~~~~~~~~~~~~~~ $FILE1=$ARGV[0]; $FILE2=$ARGV[1]; @ARGV=(); require 'go.pl'; &APPEND($FILE1,$FILE2); # ====================================================================== 1; #