FireC@t @ Perl6

摘要：下面我们来看看如何使用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... 阅读全文