#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(); …
#Perl
自动从ftp下载文件（不回显输入密码）
#!/usr/bin/perl #=========================================================================…
#Perl
Perl 添加 Windows 系统帐号
#!/usr/bin/perl -w use Win32::NetAdmin; $host = ''; $username = "userName"; $password = "p…
#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,Mail::Sender模块发送邮件
#!/usr/bin/perl use Mail::Sender; #new一个sender,定义编码格式防止乱码 my $sender = new Mail::Sender{ c…
#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…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
