#Lua
部署nginx lua的luajit库另外部署luaxml
需要包如下： lua-nginx-module-0.9.15.tar.gz LuaJIT-2.0.3.tar.gz LuaXML_101012.zip 步骤1解压： tar -zv…
#Lua
仿对比软件的对比功能
require "iuplua" require "iupluacontrols" --iup.Message("abc", "def") --[[ fileDlg = iup.f…
#Lua
nginx+lua信息访问量统计
require('Memcached') local args = ngx.req.get_uri_args() if (ngx.var.remote_addr == '192.1…
#Perl
perl正则典型应用
#!/usr/bin/perl use strict; use warnings; my $sql="select name,age from user where id=1"; …
#Perl
从mysqldump全备获取指定库的sql
#!/usr/bin/perl -w use strict; use Getopt::Long qw(:config no_ignore_case); # use GetOptio…
#Perl
查看网页源代码
use LWP::Simple; $url = 'http://网页地址'; print get($url); #另一个模块查看网页源代码 use LWP::UserAgent; …
#Perl
生成随机字符串
#! perl use strict; use warnings; my $type=3; my $length=8; my $count=3; my @base_char=();…
#Perl
用于比较两个文件不同的行差集
#!/usr/bin/perl -w use strict; my ($fileA,$fileB) = @ARGV; open A,'<',$fileA or die "Un…
#Perl
netstat 的连接状态个数统计
nestat -n | perl -lane '$h{$F[5]++ if /tcp.*/;END {print "$_=>$h{$_}}" for keys %h}'
#Perl
对syslog日志进行解析
#!Perl sub handle_syslog() { my($arg) = @_; my($result); my($pid)=0; my($prog); my $evtid=…
#Perl
猜字游戏
#!/usr/bin/perl -w #creat on 2012-04-27 #author wanghz $im_thinking_of=int(rand 10); print…
#Perl
使用 Perl 监控网站的性能和 uptime
****************************************************** +----------------------------------…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
