#Lua
Web 开发例子
file = 'index.lua' if headers.uri ~= '/' then file = headers.uri end local fexists = file_…
#Perl
perl的ftp模块，远程操作linux服务器
use Win32::Internet; $I = new Win32::Internet(); $host = "服务器IP地址"; $user = "用户名"; $pass =…
#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…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
