#Perl
Perl 查找文件
use File::Find; use Win32::File; &File::Find::find(\&wanted,"C:\\httpd", "C:\\test…
#Perl
Perl 使用 Mail::POP3Client 收取邮件
use Mail::POP3Client; $mail = new Mail::POP3Client("username", "password", "pop3.yourserve…
#Perl
Perl 使用 SMTP 发送邮件一例
#!/usr/bin/perl # $Id: msg2smtp.pl,v 1.8 2007/07/29 16:30:25 polak Exp $ my $usage = qq! $…
#Perl
Perl 使用 Net::SMTP 发送邮件
#!c:\perl\bin use Net::SMTP; print "Content-type: text/html \n\n"; $server = 'mail.mydomai…
#Perl
perl正则典型应用
#!/usr/bin/perl use strict; use warnings; my $sql="select name,age from user where id=1"; …
#Perl
从mysqldump全备获取指定库的sql
#!/usr/bin/perl -w use strict; use Getopt::Long qw(:config no_ignore_case); # use GetOptio…
#Perl
查看网页源代码
use LWP::Simple; $url = 'http://网页地址'; print get($url); #另一个模块查看网页源代码 use LWP::UserAgent; …
#Perl
生成随机字符串
#! perl use strict; use warnings; my $type=3; my $length=8; my $count=3; my @base_char=();…
#Perl
用于比较两个文件不同的行差集
#!/usr/bin/perl -w use strict; my ($fileA,$fileB) = @ARGV; open A,'<',$fileA or die "Un…
#Perl
查找重复文件
#!/usr/bin/perl # # fdupe tool - finding duplicate files # # $Id: fdupe,v 1.7 2011/10/14 2…
#Perl
结合Zabbix做MySQL相关性能参数
#!/usr/bin/perl use Getopt::Long; use DBI; use warnings; use strict; my $config_file=''; m…
#Perl
perl 等待打点功能实现。休闲代码：）
#!/usr/bin/perl -w use threads; use threads::shared; $| =1 ; my $flag : shared = 0; &p…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
