Perl_传入值or路径or文件名等_@ARGV
die "usage: $0 [input1] [input2] [out]\n"
unless (@ARGV == 3);
open IN , "$ARGV[0]" || die "$!\n";
open IN1, "$ARGV[1]" || die "$!\n";
open OUT, "> $ARGV[2]" || die "$!\n";
Perl_传入值or路径or文件名等_@ARGV
die "usage: $0 [input1] [input2] [out]\n"
unless (@ARGV == 3);
open IN , "$ARGV[0]" || die "$!\n";
open IN1, "$ARGV[1]" || die "$!\n";
open OUT, "> $ARGV[2]" || die "$!\n";