#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
批量下载书籍，慎用
use utf8; binmode(STDIN, ':encoding(utf8)'); binmode(STDOUT, ':encoding(utf8)'); binmode(S…
#Perl
simple http proxy
#!env perl use AnyEvent::Socket; use AnyEvent::Handle; use Data::Dumper; use LWP; my $cv =…
#Perl
perl爬虫收集当前页面所以链接地址，不需要用HTML::LinkExtor模块
use LWP::Simple; use URI::URL; my @collect_url=(); my $url = "http://pngu.mgh.harvard.edu/…
#Perl
使用perl socket 在WINDOWS DHCP服务上 实现ip绑定
#!/usr/bin/perl #server.pl #use strict; use Socket; use constant IPADDR => '192.168.1.2…
#Perl
sort 自定义函数排序
sub by_number { if ($a > $b){1} elsif($a < $b){-1} else {0} } my @number = (1,4,76,4…
#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…
#Perl
Perl 一个简单的 GUI 程序，有退出按钮
#!/usr/bin/perl -w use Tk; $Tk::strictMotif = 1; $main = MainWindow->new(); $button1 = …
#Perl
Perl 调用 SetAttributes 修改文件属性 （Windows）
use Win32::File; Win32::File::SetAttributes($name, $attr); #!/usr/bin/perl -w use Win32::F…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
