#Perl
递归遍历文件夹统计文件的行数
#!/usr/bin/perl $pwd="/home/program/"; $wc_temp="$pwd/wc_temp"; sub sum{ my @file=<*>…
#Perl
使用正则表达式找出不包含特定字符串的条目
^xl_(?!.*?_online).*?$
#Perl
连接MySQL 读取表内容
#!/usr/bin/perl # ppm install DBD::mysql use DBI; # use strict; my $dbname = "test"; my $l…
#Perl
分离时间
use Encode; use Time::Local; (my $sec,my $min,my $hour,my $day,my $mon,my $year,my $weekda…
#Perl
QQ外挂
#!/usr/bin/env perl use LWP; use Data::Dumper; use HTML::Form; use JSON; use Switch; use H…
#Perl
Perl 的 DBM 文件操作实例
#Format: #dbmopen(hash, dbfilename, mode); #tie(hash, Module , dbfilename, flags, mode); d…
#Perl
使用 Perl 检测 系统进程，实现进程意外退出重启。
#! /usr/bin/perl $ck=`ps -ef | grep 'sasl' | grep -v grep`; if ($ck eq ''){ print "SASL Do…
#Perl
Perl 创建 Windows 下的快捷方式
#!/usr/bin/perl -w use Win32::Shortcut; $ApplicationName = 'c:/winnt/system32/notepad.exe'…
#Perl
Perl 一个超级简单的Socket服务器
#!/usr/bin/perl use warnings; use strict; use IO::Socket; # queue up no more than 5 pendin…
#Perl
Perl 为 Festival 编写的 Emacspeak speech server
#!/usr/bin/perl # EmacSpeaks Festival # # A Emacspeak speech server for Festival written i…
#Perl
Perl解決走迷宮問題
#!/usr/bin/perl # # Useage: maze.pl # # use strict; use warnings; ### main program my @maz…
#Perl
Perl 文件测试符
-e 该“文件名”是否存在 -f 该“文件名”是否为文件 -d 该“文件名”是否为目录 -b 该“文件名”是否为一个块设备 -c 该“文件名”是否为一个字符设备 -S 该“文件名”…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
