#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
海龟图(For Fun)（修改版）
#!/usr/bin/perl #turtle walk in his room, writeing or doing nothing #$pen=1(write) 0(do no…
#Perl
Nginx 使用 Perl 进行 IMAP 的认证
user nobody; worker_processes 1; error_log logs/error.log info; pid logs/nginx.pid; events…
#Perl
Perl 对 Windows 注册表的操作
use Win32::Registry ; $key = "SOFTWARE\\newKey"; $HKEY_LOCAL_MACHINE->Open($key, $keyLi…
#Perl
Perl 使用 sendmail 程序发送邮件
#!/usr/bin/perl $from="$me\@mydomain.com"; $to="you\@yourdomain.com"; $subject="Test email…
#Perl
Perl 列举所有的 ODBC 驱动程序
use Win32::ODBC; %drivers = Win32::ODBC::Drivers(); local $" = ", "; foreach $driver (sort…
#Perl
Perl 的 Socket 客户端获取服务器时间
#!/usr/local/bin/perl -Tw require 5.6.0; use Socket; use FileHandle; use strict; my($remot…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
