摘要:
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~ 阅读全文
摘要:
实习以来,大部分工作是开发,但做为安全测试小组的一员,有必要了解安全测试、如何做安全黑盒测试和白盒测试、如何借助工具来测试。今 天做旺旺2010正式版(王挺已做完正在跟进的项目,已整理好风险点)测试。首先,查看风险点的UC,理解需求,进一步理解为什么这个点是风险点。通过前 段时间自己做开发,深刻体会到理解需求的重要性。做开发只有深刻理解了需求,才能做出符合客户的产品;做测试只有从客户的角度深刻理解了需求,才能发现产 品更多的缺陷。总之,客户的需求是根本所在。在理解了风险点之后,我正在为如何获取旺旺客户端的发送的请求和数据不知所措的时候,王挺给我介绍了两种抓包 工具——Fiddler和Wires 阅读全文
摘要:
这个脚本无比的重要,虽然代码简单,但是在判断是否准确上,有着很重要的地位。通过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; } ... 阅读全文