perl 204

#Perl
Perl6 Net::FTP Sample

#!/usr/bin/env perl6 use Net::FTP; my @locals = ( "/update/", ); my @remotes = ( "/usbip/"…

2015-12-14 562

#Perl
在window平台下自动截屏

use Win32::Clipboard; use Win32::GuiTest qw/SendKeys/; while(1) { my @time = localtime(tim…

2015-12-14 276

#Perl
localtime

#!/usr/bin/perl -w #from 1970-1-1 to now, total seconds. my $time = time(); my $local_time…

2015-12-14 1,019

#Perl
格林高丽日期与普通日期的互相转换脚本

#!/usr/bin/perl #Caution: The following program doesnot provide ANY WARRANTY for commercia…

2015-12-14 845

#Perl
管理每台服务器的信任关系

#!/usr/bin/env perl -w #Description: This script is for looking up,adding,deleting user ce…

2015-12-14 262

#Perl
计算2个字符串的相似距离(采用Levenshtein distance)

# -------------------------------------------------------------------- # function: Return …

2015-12-14 410

#Perl
猜字游戏

#!/usr/bin/perl -w #creat on 2012-04-27 #author wanghz $im_thinking_of=int(rand 10); print…

2015-12-14 595

#Perl
使用 Perl 监控网站的性能和 uptime

****************************************************** +----------------------------------…

2015-12-14 232

#Perl
Perl 查找文件

use File::Find; use Win32::File; &File::Find::find(\&wanted,"C:\\httpd", "C:\\test…

2015-12-14 569

#Perl
Perl 使用 Mail::POP3Client 收取邮件

use Mail::POP3Client; $mail = new Mail::POP3Client("username", "password", "pop3.yourserve…

2015-12-14 779

#Perl
Perl 使用 SMTP 发送邮件一例

#!/usr/bin/perl # $Id: msg2smtp.pl,v 1.8 2007/07/29 16:30:25 polak Exp $ my $usage = qq! $…

2015-12-14 209

#Perl
Perl 使用 Net::SMTP 发送邮件

#!c:\perl\bin use Net::SMTP; print "Content-type: text/html \n\n"; $server = 'mail.mydomai…

2015-12-14 494
1 5 6 7 8 9 17