随心笔谈
随心记录网事-锻炼心境-记录过往事迹
Perl访问MSSQL并迁移到MySQL数据库脚本实例（perl is need）这样也行？
#!/usr/bin/perl use strict; use warnings;use DBI; die 'Usage: qq db\n' if @ARGV !=1;my $db=$ARGV[0]; print 'Connect...
Perl脚本检测一个域名是否有效（perl 文件判断）太疯狂了
file: check.host.pl #!/usr/bin/perl use strict; use Net::Ping; use Net::DNS; use Time::HiRes qw...
perl脚本实现限制ssh最大登录次数（支持白名单）（perl脚本调试方法）学会了吗
#!/usr/bin/perl -w use strict; #white list my @ALLOW_USERS=qw{ test root lulu1 };...
Perl脚本实现递归遍历目录下的文件（perl读取文件内容到数组）满满干货
#!/usr/bin/perl -w use strict; use File::Spec; local $\='\n';#当前模块的每行输出加入换行符 my %options;...
Perl脚本实现检测主机心跳信号功能（perl脚本是做什么的）一篇读懂
# ! perl -w use strict; use Win32 :: SerialPort; my $port=' COM2 ' ; # serail port name registried in OS ...
perl脚本学习指南–读书笔记（Perl脚本能用awk吗）学到了吗
undef 默认未定义字符，perl里面没有NULL，defined($x)函数：如果参数为undef返回false qw(cs phy geo) 类似于 （“cs”, 'phy', 'geo'）列...
Perl的Mail：：POP3Client模块和Gmail通信实例（imap和exchange）学会了吗
use Mail::POP3Client; use MIME::Parser; my $U='User.Name＠gmail.com'; my $P='uSeR.pAsSwORd'; my $X=new M...
Perl生成纯HTML代码二维码实例（perl怎么用）学会了吗
需要依次安装 qrencode、Text-QRCode、HTML-QRCode #!/usr/bin/perl use HTML::QRCode; my $t...
perl查找进程PID的例子（perl查找字符串）深度揭秘
#!/usr/bin/perl use strict; use warnings; #usage: process_grep.pl ProcessName exit( main(@ARGV) ); ...
Perl时间处理函数用法介绍（perl 时间转换）奔走相告
一. Perl时间的表示函数 1. 表示日期的方式多种多样: '18Jan1973'; '18/01/1973'; ...