墨迹哥's

摘要： 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; } ... 阅读全文