![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
SnowRomance
这个作者很懒,什么都没留下…
展开
-
文件读取
1.直接读取open (FILEHAND,"/root/tt.txt") || die ("can't open file");$profile=;close FILEHAND;print $profile;原创 2016-03-17 20:32:12 · 206 阅读 · 0 评论 -
对于爬取 ajax 数据中获取的不合规定的 html 代码
今天爬取数据碰到爬取 ajax 数据1.对于 ajax URL 的获取,可以通过火狐浏览器 按 F12 调试模式 中 控制台 查看2.对于获取的数据 的格式这种格式不能获取最后一个 div 中的内容,主要原因是 中的内容阻断了 perl 模块的解析3.解决方法在获取的页面的首位 添加 但是直接添加就会有 解析的问题原创 2016-05-04 11:33:44 · 316 阅读 · 0 评论 -
perl 爬取铜板街
use LWP::UserAgent;use utf8;use HTML::TreeBuilder;use Data::Dumper;open DATAFH,">data.html" || die "open data file failed:$!";#模拟浏览器进行网页数据爬取my $ua = LWP::UserAgent->new;$ua->timeout(原创 2016-02-26 20:09:21 · 732 阅读 · 0 评论 -
perl 登录人人,并发送帖子
#!/usr/bin/perluse strict;use warnings;use LWP;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use Encode;use URI::Escape;use URI::URL;转载 2016-02-26 20:08:40 · 298 阅读 · 0 评论 -
perl 数组跟哈希
#/usr/bin/perl%new_hash = ('first',1,'second',2);#print $new_hash{ 'first' };#print "\n";@new_array = %new_hash; #哈希转数组print "1111111111\n";print @new_array;print "\n";pri原创 2016-02-26 20:08:10 · 719 阅读 · 0 评论 -
perl 文件句柄
#!/usr/bin/perluse autodie;open LOG, '>>', 'log_file';print LOG "first log input\n";close LOG;open LOG, '>>', 'log_file';print LOG "second log input\n";close LOG;$| = 1原创 2016-02-26 20:07:36 · 689 阅读 · 0 评论 -
perl print 与 加减乘除
#!/usr/bin/perlprint ((print (2+3))*4);print "\n";print 返回 1原创 2016-02-26 20:06:27 · 2721 阅读 · 0 评论 -
perl 读取图片
my $resImg = $ua->get($login_url.'/GenImg'); if(!$resImg->is_success){ return 0; } open(FILE_HANDLE,'>img.jpg'); binmode FILE_HANDLE; print FILE_HANDLE $resImg->conte原创 2016-02-26 20:04:49 · 1964 阅读 · 0 评论 -
perl 登录盈盈理财
#!/usr/bin/perluse LWP;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use utf8;use Encode;use URI::Escape;use URI::URL;use Data::Du原创 2016-02-26 20:03:54 · 404 阅读 · 0 评论 -
perl 爬取 csdn 博客
其中需要添加一些 获取图片的代码,并且本人机子上显示 vim 乱码尚未解决#!/usr/bin/perluse LWP;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use utf8;use Encode;use原创 2016-02-26 20:03:26 · 458 阅读 · 0 评论 -
perl 连接 mysql 数据库
1.# cpan DBI2.perl 连接数据库 脚本#!/usr/bin/perl -w#The script is used to connect mysql and show table members of the #database library use DBI();#connectmy $dbh原创 2016-02-25 14:08:43 · 783 阅读 · 0 评论 -
一行代码解决 perl 出入,排序,输出
1.基本的方法chomp(@strings=); @strings=sort @strings; print "@stringsn.";2.一行代码print sort;转载 2016-03-17 20:33:58 · 1178 阅读 · 2 评论 -
perl 高级操作符 <=>
1.升序排序@number=qw/5 10 15 3 2 4 8 6/;my @descending =sort {$a$b} @number; print "@descending\n";2.降序排序@number=qw/5 1原创 2016-03-17 20:33:30 · 992 阅读 · 0 评论 -
chomp 跟 chop
chomp:1.去除从标准输入进来的变量中的换行符chomp ($food=) 或$food=;$betty = chomp ($food);2.perl 操作符默认可以省略 ()$betty = chomp ($food);或$betty = chomp $food;3.如果输入的结尾有多个换行符,只原创 2016-03-17 20:33:08 · 468 阅读 · 0 评论 -
pop,push,shift,unshift
@a = (1..3);pop: pop(@a); 删除数组最右边的一个值push: push(@a,4);添加数组最右边的一个值shift: shift(@a);删除数组最左边的一个值unshift: unshift(@a,0);添加数组最左边的一个值原创 2016-03-17 20:32:48 · 306 阅读 · 0 评论 -
perl 模块下载安装
Linux :1.下载模块安装包1)、首先解压2)、创建 Makefile # perl Makefile.PL3)、编译模块 # make4)、运行模块中的测试套件 # make test5)、安装模块 # make install2.使用 CPAN 模块 perl -MCP原创 2016-03-17 20:32:30 · 3287 阅读 · 0 评论 -
一个perl URLencode URLdecode的方法 (2009-07-22 15:47:36)转载▼
#引入模块use URI::Escape;#urlencode$encoded = uri_escape("10% is enough\n"); #urldecode$decoded = uri_unescape($encoded); 结束了,perl用起来就是如此简单uri_escape( $string )uri_escape( $stri转载 2016-05-04 11:35:29 · 1095 阅读 · 0 评论