Accession

usage： 脚本就不注释了，会perl的都看得懂；测试了下，速度感人OTZ，淦！ #!/usr/bin/env perl use strict; use warnings; use Cwd qw/getcwd/; use Getopt::Long; use Net::FTP; use featur ......