#Perl
Perl Socket server waiting for clients
use IO::Socket; $server = IO::Socket::INET->new ( LocalPort => 1247, Type => SOCK…
#Perl
Perl 解析 HTTP Header
#!/usr/bin/perl use Socket; my $proto = getprotobyname('tcp'); socket(Server,PF_INET,SOCK_…
#Perl
Perl解決走迷宮問題
#!/usr/bin/perl # # Useage: maze.pl # # use strict; use warnings; ### main program my @maz…
#Perl
Perl 文件测试符
-e 该“文件名”是否存在 -f 该“文件名”是否为文件 -d 该“文件名”是否为目录 -b 该“文件名”是否为一个块设备 -c 该“文件名”是否为一个字符设备 -S 该“文件名”…
#Perl
用Perl编写的一个小的词法分析器
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # # @File ： Lexical_…
#Perl
windows下Perl删掉过期文件
#!/usr/bin/perl use Tk; use Encode; use Win32::API; use threads; use Encode::CN; use Tk::B…
#Perl
例子：将文件每行存入数组中
#!/usr/bin/perl -w #use strict; #严格perl的语法，使用它后所有变量必须都用my声明。 use CGI qw(:all); open(FILE,"…
#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'…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
