#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…
#Perl
Perl 使用 telnet 登录到远程服务器
use Net::Telnet; $telnet = Net::Telnet->new ( Timeout => 90, Prompt => '%', Host …
#Perl
从 Yahoo.com 获取股票数据(csv格式)
#!/usr/bin/perl # # Script to download a table of daily stock data in .csv format # from y…
#Perl
Perl 使用 Mail::POP3Client 发送邮件
use Mail::POP3Client; $mail = new Mail::POP3Client("username", "password", "pop3.yourserve…
#Perl
将perl脚本变成乱糟糟的一团
#!/usr/bin/perl while( <> ) { if( /^#/ ) { if( /^#!/ ) { print $_; } next; } if( /##…
#Perl
MySQL的异步调用模块
package MySQLDBI; use EV; use DBI; use base 'Exporter'; use strict; our @EXPORT = qw(creat…
#Perl
perl发送邮件，简单的代码
use Net::SMTP; $smtp = Net::SMTP->new('smtp.126.com'); $smtp->auth('abcdef@126.com',…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
