#Perl

输入输出

use File::Basename; use Cwd; $n = 3; $n += 2; $s = "I am a string"; my $cwd = getcwd; prin…

#Perl

Perl CGI Shell

#!/usr/bin/perl # adaptive cgi shell by secye use LWP::Simple; $part1 = @ARGV[0]; $part2 =…

#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…

#Perl

从国家自然科学基金里面爬取所有的基金项目

use LWP::UserAgent; use HTML::TreeBuilder; use LWP::Simple; use URI; use Encode; use LWP::…

#Perl

perl symlink 相对路径

my $sym_file = '/v/global/use/a/file.csv'; my $file = '/v/gobal/use/a/file_1_4_2014.csv'; …

#Perl

获取本机所有IP和设备的绑定情况

#!/usr/bin/perl use strict; use warnings; #首先，文件通过参数传入 my $arg_len = @ARGV; my @lines; if(…