摘要： 下面我们来看看如何使用split命令。假如我们需要按行切，可以用下面命令实现: 这样会产生很多个小文件，并且每个小文件里面的内容最多为100行 如果我们需要按照大小切，可以用下面命令实现： 这样会产生很多大小为1MB的文件，如果我们不想一行数据被切割，那么可以使用下面命令实现： 结果也是会产生很多的 阅读全文

摘要： 1 use LWP::Simple; 2 use HTML::HeadParser; 3 use utf8; 4 binmode(STDOUT, ":encoding(gbk)"); #设置win下输出中文 5 6 $result = get('http://www.baidu.com'); 7 $what = HTML::HeadParser->new; 8 $what->p... 阅读全文

摘要： 当然， 你还可以加一下正则， 去掉不是http://开头的也行 阅读全文

摘要： 这个代码打印页面中的所有标签名与对应的link链接地址 如果我们要打印其中的所有img地址呢，那我们可能用$tag来判断是哪种标签， 从而再进一步提取数据 具体可以看这里: perl HTML::LinkExtor模块(2) 阅读全文

摘要： 1 use WWW::Mechanize; 2 3 my $ua = WWW::Mechanize->new(); 4 $ua->post('http://localhost/dvwa/DVWA-master/login.php'); 5 #登录网址 6 $ua->form_number(1); 7 #表单编号, 也可用$ua->form_name(form_name); 8 ... 阅读全文

摘要： 1 use LWP::UserAgent; 2 3 undef $/; 4 if(@ARGV != 1){print "Use:poc.pl http://target/index.action\n";exit;} 5 my $url = shift; 6 my $ua = LWP::UserAgent->new; 7 my $req = HTTP::Request->new(P... 阅读全文

摘要： 1 import urllib.request 2 import urllib.error 3 4 url = 'http://c.telunyun.com/Chart/getJsonData?market=1' 5 data = urllib.request.Request(url) 6 try: 7 data = urllib.request.urlopen(data... 阅读全文

摘要： 1 #!/usr/bin/env perl -w 2 use strict; 3 use threads; 4 use threads::shared; 5 6 my $count:shared = 1; 7 print "count的起始值为:$count\n"; 8 sub th_lock{ 9 $count++; 10 print "已把... 阅读全文

摘要： 1 use threads; 2 use threads::shared; 3 my $count:shared = 1; 4 print "主线程中count为:$count\n"; 5 6 sub thread1{ 7 print "线程1增加1\n"; 8 $count++; 9 print "在线程1中结果为:$coun... 阅读全文

摘要： 把post数据写进一个匿名数组里就行 或 或 如果用最后一个方法， 记得要带有content_type头才行 阅读全文