#Perl

simple http proxy

#!env perl use AnyEvent::Socket; use AnyEvent::Handle; use Data::Dumper; use LWP; my $cv =…

#Perl

perl爬虫收集当前页面所以链接地址，不需要用HTML::LinkExtor模块

use LWP::Simple; use URI::URL; my @collect_url=(); my $url = "http://pngu.mgh.harvard.edu/…

#Perl

使用perl socket 在WINDOWS DHCP服务上 实现ip绑定

#!/usr/bin/perl #server.pl #use strict; use Socket; use constant IPADDR => '192.168.1.2…

#Perl

sort 自定义函数排序

sub by_number { if ($a > $b){1} elsif($a < $b){-1} else {0} } my @number = (1,4,76,4…

#Perl

查找重复文件

#!/usr/bin/perl # # fdupe tool - finding duplicate files # # $Id: fdupe,v 1.7 2011/10/14 2…

#Perl

mod_security日志信息提取工具 – modgrep

#!/usr/bin/perl use Getopt::Std; use vars qw/ %opt /; my $opt_string = 'hf:s:v:'; getopts(…

#Perl

动态生成pxelinux菜单文件及kickstart安装脚本

#Perl

irssi 显IP插件

#QQWry.Dat放~/.irssi下，脚本改名叫wry.pl 放~/.irssi/scripts/，然后链接到~/.irssi/scripts/autorun # includ…

#Perl

Perl 打开 word 文档并修改内容

#!/usr/bin/perl use warnings; use strict; use Win32::OLE; chomp( my $line = <STDIN> …

#Perl

Perl 编写的一个简单 Web 服务器

use HTTP::Daemon; $HTTPserver = HTTP::Daemon->new(Timeout => 600); print "My URL is:…

#Perl

Perl 调用 MySQL 存储过程并获得返回值

$stmt=$my_db->prepare("SELECT isodd(?)") or die($my_db->error); $stmt->bind_param…

#Perl

POST 参数到 Perl CGI

use HTTP::Request::Common; use LWP::UserAgent; $user_agent = LWP::UserAgent->new; $requ…