#Perl
perl中的队列
#!/usr/bin/perl use strict; #use warnings; use feature 'say'; my @people = ("Foo", "Bar");…
#Perl
分割合并文件
use strict; my $ItemSize = 1024 * 1024 * 100; open(FILEHANDLE, "< a1.mkv"); binmode FIL…
#Perl
perl解析xml
use XML::Simple; my $xmlfile = "result.xml"; my $casesT = XML::Simple->new( ForceArray …
#Perl
perl通过IMAP接收、处理邮件
#!/usr/bin/perl use warnings; use strict; use Mail::IMAPClient; use Term::ReadKey; print "…
#Perl
Perl 列出系统所有的帐号（Windows）
#FILTER_NORMAL_ACCOUNT Lists normal accounts on a system. #FILTER_SERVER_TRUST_ACCOUNT Lis…
#Perl
Perl 使用 fork 的 socket 服务器
#!/usr/bin/perl use warnings; use IO::Socket; my $servsock = IO::Socket::INET->new( Lis…
#Perl
对存储过程表的列及值添加标记，方便修改
#!/usr/bin/perl -w use warnings; if(open LOGO ,"<sql.txt" or die "\ncan't find File: $!…
#Perl
Perl 使用指定的 User-Agent 抓取网页
#!/usr/bin/perl -w use LWP; use strict; my $browser = LWP::UserAgent->new(agent => '…
#CSS
非响应css初始化
@charset "gb2312"; * { margin: 0; padding: 0; outline: none; } a { color:#333; text-decora…
#CSS
两列布局，左侧定宽，右侧自适应
<!DOCTYPE HTML> <html> <head> <meta http-equiv="Content-Type" content…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
