#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 => '…
#Perl
调用perl,Mail::Sender模块发送邮件
#!/usr/bin/perl use Mail::Sender; #new一个sender,定义编码格式防止乱码 my $sender = new Mail::Sender{ c…
#Perl
perl遍历所有文件并修改或插入相关信息
#!/ms/dist/perl5/bin/perl5.10 use Tie::File; use strict; use warnings; sub process{ my @li…
#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
Perl练习——九九乘法表
#! perl -w use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; $Win32::OL…
#Perl
多线程子域名 bruteforcer – dnsspider
#!/usr/bin/env python # # dnsspider.py - multithreaded subdomain bruteforcer # # bruteforc…
#Perl
Perl 列出所有 DBI 驱动程序
#!/usr/bin/perl use strict; use DBI; my @drivers; @drivers = DBI->available_drivers(); …
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
