随笔分类 - Perl
摘要：该系统是1.0的版本，目前接近完工了。将会有良好的web交互，后续会不断的完善，第一个版本功能相对比较少。今天解决了入库的bug。整个系统围绕着两个语言来实现，php具有其独特的优势，在web交互上能够让人良好的处理日常任务。perl在底层处理数据，效率上，多线程使用方便，处理迅速。下面是入库的图:D：
阅读全文
摘要：Google "how to install the PerlIDE for NetBeans".Can search anything for this question.Then i search perl plugin.http://netbeans.mojgorod.ru/perl.htmlinstall nbm for NetBeans, Perl Script is Working~
阅读全文
摘要：这个脚本无比的重要，虽然代码简单，但是在判断是否准确上，有着很重要的地位。通过icmp和解析，它有一定意义所在。mark!..#!/usr/bin/perluse Net::Ping;sub icmp_domain{ $k='true'; local($host)=shift; $p=Net::Ping->new("icmp");#@url=<>; $k='false' unless $p->ping($host,1);#if($p->ping($host,1)){# print "yes\n"
阅读全文
摘要：在使用的过程当中last和next的用法总会让人弄混乱，实战当中，它们是两兄弟，只要理解的用法，将会无比的简单。我也是最近发现这两个东西的好处。例如我要写一个fg的递增，用它们两者结合，将会无比的好。接着发一个实例代码，好好分析和记录，每天都在进步。。～:> if($output eq undef) { if (-e "$url.html") { for my $i(1..10000) { if (-e "$url($i).html") ...
阅读全文
摘要：最近在写一个web应用，其中接触到json过滤，根据数据的类型写出这个脚本。本来准备使用第三方库的，可是网速太卡，所以。。。。#!/usr/bin/perl$tmp=<>;if($tmp=~m#{(.*)}#){ $list=$1; @tmp=split(/,/,$list);}@tmp_url= keys %{ {map {$_ => 1} @tmp} };while(<@tmp_url>){ if($_=~m#status:(.*)#){ if($1 != 'Success'){ last; } ...
阅读全文
摘要：先说好，这玩意没有完工。目前只是做个整合。目前对其的要求是：根据目标的域名，对网站爬虫，以及同IP域名分析，还有就是目录的扫描，系统的检测。还有就是指纹识别。漏洞扫描等等。目前该WebMode只是一部分，还在研究当中。还需要修改，只是把大致的框框弄出来。。package WebMode;use HTTP::Request;use LWP::UserAgent;use Getopt::Long;use threads;use Thread::Semaphore;use Socket;use HTTP::Response;use HTTP::Request::Common;sub Waring_p
阅读全文
摘要：感谢V总教会我用brupsuite.谢谢这位没有任何脾气的大牛。。这个软件说实话真不是很会用，纯英文比较蛋疼。。。刚学会使用，抓包写了个旁站查询的小玩具，大牛见笑了～原始的数据包如下：POST /Same/ HTTP/1.1Host: tool.chinaz.comUser-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:18.0)Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8Accept-Language: zh-cn,en-us;q=0.7,en;q=0.3A
阅读全文
摘要：#!/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
阅读全文
摘要：Python的循环打印感觉总有点怪怪的，和Perl有点区别。。不过它有它的好处吧。回头特地开个文章细总结下。。#!/usr/bin/pythonfor i in range(1,5): print ielse: print "The end"
阅读全文
摘要：比较经典的一种对比文件的方式。。看了这段代码有点感悟。但没有写出来，回头整理看看。。#! /usr/bin/perluse strict;use warnings;my $src_lines_1_ref = get_lines_from_file('1.txt');my $src_lines_2_ref = get_lines_from_file('2.txt');my @dst_lines = grep { my $line = $_; grep $_ eq $line, @$src_li...
阅读全文
摘要：在那个CU上看到的。。，可以看看。。http://qntm.org/files/perl/perl.html
阅读全文
摘要：该脚本我发现有点问题，就是当链接成功以后，不会自动断开，这个问题我一直都在想办法。。这段时间可以好好看看。。当然，如果有哥们懂的，欢迎留言交流下。。。#! /usr/bin/perluse threads;use IO::Socket::INET;use strict;my @openport;sub scan{ my ($host,@ports,$proto) = @_; foreach my $port (@ports){ my $socket = new IO::Socket::INET( PeerHost => $host, PeerPort => $port, P...
阅读全文
摘要：这段代码在网上找的。觉得很不错，准备弄来分析下。。看别人的代码也是一种另类的学习方法。在学习的过程当中多看别人的代码能够提升自己的理解。特别是一些自己没有用过的模块，通过这些实例就能知道怎么去使用。当然，你也可以自己去研究官方那些文档。但是对于我来说，我觉得最快的方法就是看别人写的代码实例。或许每个人都有点不同吧。#!/usr/bin/perl # siteindexingbot.pl use warnings; use strict; use LWP::Simple; use LWP::RobotUA; use WWW::RobotRules; use HTML::Parse; use HT
阅读全文
摘要：#!/usr/bin/perl#set moduleuse DBI;#scanf the mysqluserprint "请输入mysql帐号:\n";chomp($mysql_n=<STDIN>);print "请输入mysql密码:\n";chomp($mysql_p=<STDIN>);print "请输入需要连接的数据库:\n";chomp($mysql_d=<STDIN>);#connect mysqlmy $in=DBI->connect("DBI:mysql:databa
阅读全文
摘要：#!/usr/bin/perl$i=0;while(<>){#读取数据后去掉换行符chomp;#把获得的一行数据进行切割@log_grep=split(/"/,$_);#把切割后的数据交给后面的子程序进行处理&grep_log_main(@log_grep);#输出处理后的结果print "源访问ip地址:$ip_home 访问日期:$yym 访问时间:$xiaoshi:$fenzhong:$miao 访问动作:$options 访问目录:$pwd 响应头:$head 浏览器源:$liulanqi \n";}##################
阅读全文
摘要：不多说了，这个脚本是我刚学得时候写的。。#!/usr/bin/perluse Getopt::Std;use vars qw( $opt_t $opt_l $opt_n $opt_p);use Parallel::ForkManager;print "-----------------------------------------\n";print "| |\n";print "| Poject of Log-grep |\n";print "| ...
阅读全文
浙公网安备 33010602011771号