随笔分类 -  Perl

perl 在win下输出中文乱码问题
摘要:1 use utf8; 2 my $name = '你好'; 3 binmode(STDOUT, ":encoding(gbk)"); 4 print $name,"\n"; 5 6 # #或 7 # use Encode; 8 # my $str='你好'; 9 # $str = encode("gbk", decode("utf-8", $str)); 10 # prin... 阅读全文

posted @ 2017-02-19 23:18 Perl6 阅读(1834) 评论(0) 推荐(0)

第一章:read/sysread/print/syswrite区别
摘要:1 use strict; 2 use warnings; 3 4 5 #将读入的内容添加到原字符串后面 6 my $buffer='START:'; 7 my $byts = sysread(STDIN,$buffer, 10, length($buffer)); 8 #my $byts = read(STDIN,$buffer, 10, length($buffer));... 阅读全文

posted @ 2017-02-19 22:33 Perl6 阅读(587) 评论(0) 推荐(0)

第一章:获取服务器服务banner
摘要:1 #!c:\\perl\\bin\\perl.exe 2 #读取服务器的首行(banner) 3 4 use IO::Socket; 5 6 my $service = '121.201.67.177:ssh'; 7 my $remove = IO::Socket::INET->new($service); 8 my $banner = ; 9 print $banner;#注意这个ban... 阅读全文

posted @ 2017-02-19 21:58 Perl6 阅读(1759) 评论(0) 推荐(0)

第一章:读取文件一行IO::File
摘要:1 #!c:\\perl\\bin\\perl.exe 2 use IO::File; 3 #读取一行 4 my $fd = IO::File->new('perl.txt'); 5 my $one_line = ; 6 print $one_line; 7 $fd->close; 8 9 #写入数据 10 my $wfd = IO::File->new(">> readme... 阅读全文

posted @ 2017-02-19 21:44 Perl6 阅读(1153) 评论(0) 推荐(0)

测试一个注入小脚本
摘要:主要是猜测当前数据库名称 阅读全文

posted @ 2017-02-18 07:39 Perl6 阅读(470) 评论(0) 推荐(0)

perl 列出一个目录下的文件的大小
摘要:1 use strict; 2 use warnings; 3 use Cwd; 4 my $dir = 'd:\\www'; 5 chdir($dir); 6 opendir DIR, $dir or die "Cannot open dir:$!\n"; 7 my %result; 8 while(my $filename = readdir(DIR)){ 9 ne... 阅读全文

posted @ 2017-02-17 06:20 Perl6 阅读(1056) 评论(0) 推荐(0)

read/sysread区别
摘要:sysread使用无缓冲 read使用缓冲 阅读全文

posted @ 2016-12-20 01:52 Perl6 阅读(730) 评论(0) 推荐(0)

用perl发送数据到钓鱼站
摘要:一个皮皮果的游戏很火 估计很多人想黑 偶然发现一个钓鱼站: http://ppgpergame.com/ 钓用户名与密码 抓包后发现数据会发送到: http://ppgpergame.com/db.asp保存 所以就有了下面的脚本: post数据大概是 XXXOOOO ni M类型, 不多说 阅读全文

posted @ 2016-12-12 02:36 Perl6 阅读(322) 评论(1) 推荐(0)

用Perl做个简单”下载者病毒”
摘要:一直学的perl, 有时perl不理解时就用python写一下,这样或许perl就理解了 这里参照python写法,做了个perl的版本,当然,是为了学习用,这个下载者病毒有点简单过头了 backdoor.sh后门程序代码如下: backdoor.sh 下面为perl的shell.pl代码: she 阅读全文

posted @ 2016-12-06 09:06 Perl6 阅读(525) 评论(0) 推荐(0)

LWP::UserAgent介绍3 -> cookie设置
摘要:#或者可以如下所示 还有, 如果你是想在发送请求时一起发送指定cookie, 可以这样: 阅读全文

posted @ 2016-12-06 09:04 Perl6 阅读(915) 评论(0) 推荐(0)

LWP::UserAgent介绍2
摘要:1 #这个LWP::UserAgent一般要配合其他模块使用 2 #比如: 3 #HTTP::Request 4 #HTTP::Cookie 5 #HTTP::Respose 6 #HTTP::Status 7 #LWP::UserAgent相当于创建一个模拟浏览器 8 9 #用以下方式创一个浏览器 10 my $useragent = LWP::UserAgent->ne... 阅读全文

posted @ 2016-12-06 09:03 Perl6 阅读(1097) 评论(0) 推荐(0)

perl LWP::UserAgent获取源码与响应
摘要:1 #!/usr/bin/perl -w 2 use strict; 3 use LWP::UserAgent; 4 5 my $useragent = new LWP::UserAgent; 6 my $url = 'http://www.baidu.com'; 7 my $request = HTTP::Request->new(GET => $url); 8 my $r... 阅读全文

posted @ 2016-12-06 09:02 Perl6 阅读(816) 评论(0) 推荐(0)

LWP::UserAgent介绍1
摘要:1 require LWP::UserAgent; 2 3 my $ua = LWP::UserAgent->new; 4 $ua->timeout(10); 5 $ua->env_proxy; 6 7 my $response = $ua->get('http://search.cpan.org/'); 8 9 if ($response->is_success)... 阅读全文

posted @ 2016-12-06 09:02 Perl6 阅读(468) 评论(0) 推荐(0)

fork()子进程与waitpid()
摘要:在这里, 如果在父进程中改用wait()会出现阻塞 每一个子进程退出后会向父进程发送chld信号 waitpid()中-1表示等待所有子进程, wnohang表示不阻塞 waitpid()返回子进程的进程ID, 出错返回-1 阅读全文

posted @ 2016-12-06 09:01 Perl6 阅读(2261) 评论(0) 推荐(0)

perl Mail::Sender模块发送邮件
摘要:这里用了一个while(1)测试一直发送 perl默认没有安装Mail::Sender模块, 要自行安装 阅读全文

posted @ 2016-12-06 09:00 Perl6 阅读(1965) 评论(0) 推荐(0)

perl中的pack与unpack
摘要:这个pack, unpack在 “perl语言编程” 有介绍 看起来很复杂 转自: https://blog.gtwang.org/perl/perl-pack-unpack-tutorial/ 阅读全文

posted @ 2016-12-06 08:59 Perl6 阅读(4921) 评论(0) 推荐(0)

perl 简单后门程序
摘要:上面的open是为了重定向, 把socket的所有重定向到shell的所有 最后的exec是为了跳进/bin/sh 因为前面已把 S 跟STDIN STDOUT STDERR连接了起来 阅读全文

posted @ 2016-12-06 08:57 Perl6 阅读(479) 评论(0) 推荐(0)

perl Socket接收超时设置
摘要:一般来说, IO::Socket::INET里的Timeout设置是对于conncet的 如果你想设置recv接收超时, 可以这样设置: 这里有一点要说明, 可能新人有点迷惑。 那就是io::socket::inet创一个socket时, 这个socket是未定义的, 要等 到它连接成功了才变成定义 阅读全文

posted @ 2016-12-06 08:56 Perl6 阅读(1634) 评论(0) 推荐(0)

关于perl闭包(个人理解)
摘要:我个人理解,就是当一个变量超出作用域时,应是消失了,不见了的,但你还能访问它,这就是闭包。 # #看下面的例子。 如果如下: 因为{}超出后,$value不存在了,所以print变成打印一个未定义的变量,会出错。 再来看一个例子: 结果如下: # 可以看到,这个$value应是不存在了的,但还能访问 阅读全文

posted @ 2016-11-30 22:43 Perl6 阅读(903) 评论(0) 推荐(0)

3.Perl 多线程:Threads(exit thread_only)
摘要:还可以在导入threads模块时设置: 阅读全文

posted @ 2016-11-30 22:37 Perl6 阅读(789) 评论(0) 推荐(0)

导航