摘要：
熬夜写了下。。把它完善好了。。放出来吧。。没有加注释，以后会写成模块的方式。#!/usr/bin/perluse Nmap::Parser;use DBI;use Config::IniFiles;main:{ if ($#ARGV == -1){ usage(); exit(1); }elsif($ARGV[1] eq undef || $ARGV[1] == m/^\w$/){ usage(); exit(1); } my $xmlfile=$ARGV[0]; my $taskid=$ARGV[1]; ... 阅读全文
