#Perl
kickstart file generate tool use cgi
#!/usr/bin/perl -w use CGI; my $ks_cgi=new CGI; my $ks_ip="10.10.99.103"; # auto mount cen…
#Perl
Perl 之 DBI 执行 SQL 查询并读取结果
use DBI; my $driver="DBI:mysql"; my $database="sample_db"; my $user="root"; my $host="loca…
#Perl
Perl 使用 Win32::Process 创建进程
#!/usr/bin/perl -w use Win32; use Win32::Process; $ApplicationName = 'c:\\winnt\\system32\…
#Perl
Perl 的 ping
#!/usr/bin/perl use warnings; use Net::Ping; $hostname = shift @ARGV; $p = Net::Ping->n…
#Perl
Perl 通过 ODBC 连接数据库并创建表
use Win32::ODBC; $DSN = "Email Contacts"; my $myDb = Win32::ODBC->new($DSN); if (! $myD…
#Perl
Perl 的 gethostbyaddr 使用方法介绍
# The syntax is (name, altnames, addrtype, len, addrs) = # gethostbyaddr (inaddr, inaddrty…
#Perl
用win32的internet模块来查看网页源代码
use Win32::Internet; use Encode; $INET = new Win32::Internet(); $file = $INET ->FetchUR…
#Perl
不想做诗人的程序员不是一个好爸爸
#!/usr/bin/perl use strict; #use warnings; use encoding 'utf8'; use Data::Dumper; sub dump…
#Perl
三行perl代码即可批量下载页面里面所有的图片
$html=`curl http://www.u148.net/article/69164.html`; @img=$html=~m{<img.*?src="([^"]*)"…
#Perl
生成字符串连接文本
#!perl use strict; use warnings; #原始字符串 my $src_str='select username, userid, deptid, role…
#Perl
根据缩进深度格式化Lua代码
package LuaTidy; # 对 Lua 代码进行缩进重排 use Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = …
#Perl
匹配服务器
#!/usr/bin/perl -w sub usage(){ print "\n"; print "Usage : perl extract_host.pl <filena…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
