墨迹哥's

摘要： 坑爹的是不知道怎么报错。。头疼。。 #!/usr/bin/perl use strict; use DBI; use Net::Ping; my @oder=(); my $in=DBI->connect("DBI:mysql:database=port_scan;host=localhost","root","") or die "NO :$!"; if($in){ print "OK\n"; } my $p = Net::Ping->new("syn"); f 阅读全文