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";