Perl脚本检测一个域名是否有效(perl 文件判断)太疯狂了 file: check.host.pl #!/usr/bin/perl use strict; use Net::Ping; use Net::DNS; use Time::HiRes qw();... 随心笔谈 3年前3390
perl脚本实现限制ssh最大登录次数(支持白名单)(perl脚本调试方法)学会了吗 #!/usr/bin/perl -w use strict; #white list my @ALLOW_USERS=qw{ test root lulu1 }; #the maximum num... 随心笔谈 3年前3070
Perl脚本实现递归遍历目录下的文件(perl读取文件内容到数组)满满干货 #!/usr/bin/perl -w use strict; use File::Spec; local $\="\n";#当前模块的每行输出加入换行符 my %options; #目录路径 $o... 随心笔谈 3年前3120
Perl脚本实现检测主机心跳信号功能(perl脚本是做什么的)一篇读懂 # ! perl -w use strict; use Win32 :: SerialPort; my $port=' COM2 ' ; # serail port name registried... 随心笔谈 3年前3190
perl脚本学习指南–读书笔记(Perl脚本能用awk吗)学到了吗 undef 默认未定义字符,perl里面没有NULL,defined($x)函数:如果参数为undef返回false qw(cs phy geo) 类似于 (“cs”, "phy", "geo")... 随心笔谈 3年前3480
Perl的Mail::POP3Client模块和Gmail通信实例(imap和exchange)学会了吗 use Mail::POP3Client; use MIME::Parser; my $U='User.Name@gmail.com'; my $P='uSeR.pAsSwORd'; my $X=... 随心笔谈 3年前3020
Perl生成纯HTML代码二维码实例(perl怎么用)学会了吗 需要依次安装 qrencode、Text-QRCode、HTML-QRCode #!/usr/bin/perl use HTML::QRCode; my $text='http://jb51.ne... 随心笔谈 3年前3510
perl查找进程PID的例子(perl查找字符串)深度揭秘 #!/usr/bin/perl use strict; use warnings; #usage: process_grep.pl ProcessName exit( main(@ARGV) );... 随心笔谈 3年前3200
Perl时间处理函数用法介绍(perl 时间转换)奔走相告 一. Perl时间的表示函数 1. 表示日期的方式多种多样: "18Jan1973"; "18/01/1973"; "01/18/1973"; "Jan181973"; "18-01-73"; "... 随心笔谈 3年前3200
Perl文件句柄详解(perl常用命令)怎么可以错过 在文件I/O中,要从一个文件读取数据,应用程序首先要调用操作系统函数并传送文件名,并选一个到该文件的路径来打开文件。该函数取回一个顺序号,即Perl文件句柄(filehandle),该Perl文件... 随心笔谈 3年前3390