摘要：
#!/usr/bin/perlsub people_say{ my $name=shift(); if($name eq "jack"){ print "Hello:",$name,"happy the day!\n"; }else{ print "Hi:",$name,"This is my home,welcome~\n"; }}sub people_say2{ my $name=shift(); if($name eq "back"){ print "Hell 阅读全文
摘要：
晚上仔细的推敲了下大骆驼的案例，由于有段时间没继续看下去了，导致有些地方忘记了。今天仔细的翻了下面对对象那块，说实话，认真看，用心看的话，就能看明白它写神码。看完前面一堆的理论，发现一个特点，它简单轻便的解释了OOP是啥玩意，跟着上CU搜了些案例，发出一段来，并加上注释，希望全世界都能看懂。。。#!/usr/bin/perl -wpackage person;use strict;sub new { #创建一个散列，用来存放数据。 my $self = {}; #获取数据并放入散列中 $self->{"name"} = shift... 阅读全文
摘要：
熬夜写了下。。把它完善好了。。放出来吧。。没有加注释，以后会写成模块的方式。#!/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]; ... 阅读全文
摘要：
先说下当时的需求，而且思路：1.需求：需要扫描多个IP，把扫描结果保存到XML下。将XML下数据进行过滤，取出需要的数据打印出来。2.目前难点：根据场景的不同，扫描出来的结果差异无比的大，例如每次结果都有差距。偶尔会冒出一些不懂的字段。为此很伤脑筋。3.自己写出来的Perl代码：自己写的代码有点烂，可能学得不太好。Perl能够读取XML的节点，但是一旦扫多个IP，节点就会有变化。当时使用的模块有很多问题，对此无比的尴尬。一开始摸索的模块是这个：XML::Simple 这是一个ＸＭＬ专门的处理模块。贴上刚开始写的代码: #!/usr/bin/perl use XML::Simple;... 阅读全文
摘要：
在老外网上找到的。这个脚本真的是及时雨，解决了我的一些难题。#!/usr/bin/perl# Created by Paul Haas: phaas <AT> redspin <DOT> com# Licensed under a NMAP Compatible License (GNU GPL v2)# Dual licensed under the Fyodor may-use-as-he-pleases licenseuse Nmap::Parser;use Socket; # For inet_atonuse DBI;use strict;use vars qw 阅读全文