wonder_coole的博客

#!/usr/bin/perl if ($ARGV >= 0) { open(SRC,"$ARGV[0]") or die("ERROR:Please assign a source data file!!!!!!!!"); }else{ print("ERROR:Please assign a source data file!!!!!!!!"); exit(); } open...