Perl 导入nmap端口信息

概述平台有个需求要导入信息到MYSQL.. 分析了下，写了个脚本，几分钟搞定。。。 while(<>){ @tmp=split(/\t/,$_); @xieyi=split(/\//,$tmp[1]); if($xieyi[1] eq 'tcp'){ if($tmp[3]=~m/^\#(.*)/){ print "portname:$tmp[0] port_number:$xieyi

平台有个需求要导入信息到MysqL..

分析了下，写了个脚本，几分钟搞定。。。

while(<>){ @tmp=split(/\t/,$_); @xIEyi=split(/\//,$tmp[1]); if($xIEyi[1] eq 'tcp'){ if($tmp[3]=~m/^\#(.*)/){        print "portname:$tmp[0] port_number:$xIEyi[0] port_text: \n"; } } } sub db_insert{ my $name=shift; my $text=shift; my $port=shift; my $in=DBI->connect("DBI:MysqL:database=w3a_system;host=localhost","root","") or dIE "NO :$!"; my $insert=$in->do("insert into w3a_net_scan_service(service_name,service_text,service_port)values('$name','$text',$port)"); $in->disconnect(); }

总结

以上是内存溢出为你收集整理的Perl 导入nmap端口信息全部内容，希望文章能够帮你解决Perl 导入nmap端口信息所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。