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

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

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

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

摘要：主要是猜测当前数据库名称 阅读全文

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

摘要：sysread使用无缓冲 read使用缓冲 阅读全文

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

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

摘要：#或者可以如下所示 还有， 如果你是想在发送请求时一起发送指定cookie, 可以这样： 阅读全文

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

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

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

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

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

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

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

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

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

摘要：还可以在导入threads模块时设置: 阅读全文