#Perl
Perl6 Net::FTP Sample
#!/usr/bin/env perl6 use Net::FTP; my @locals = ( "/update/", ); my @remotes = ( "/usbip/"…
#Perl
在window平台下自动截屏
use Win32::Clipboard; use Win32::GuiTest qw/SendKeys/; while(1) { my @time = localtime(tim…
#Perl
localtime
#!/usr/bin/perl -w #from 1970-1-1 to now, total seconds. my $time = time(); my $local_time…
#Perl
格林高丽日期与普通日期的互相转换脚本
#!/usr/bin/perl #Caution: The following program doesnot provide ANY WARRANTY for commercia…
#Perl
管理每台服务器的信任关系
#!/usr/bin/env perl -w #Description: This script is for looking up,adding,deleting user ce…
#Perl
计算2个字符串的相似距离（采用Levenshtein distance）
# -------------------------------------------------------------------- # function: Return …
#Perl
猜字游戏
#!/usr/bin/perl -w #creat on 2012-04-27 #author wanghz $im_thinking_of=int(rand 10); print…
#Perl
使用 Perl 监控网站的性能和 uptime
****************************************************** +----------------------------------…
#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…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
