Perl_传入值or路径or文件名等_@ARGV

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