ganmao-优快云博客

原创完整解决webpy框架在SAE上的文件方式保存session问题

1,解决官方sae样例代码中的误区#app = web.application(urls, globals()).wsgifunc()app = web.application(urls, globals())#application = sae.create_wsgi_app(app)application = sae.create_wsgi_app(app.wsgifunc())

2015-01-02 18:20:42 1255

原创用lua为wireshark开发的一个smpp+自定义解析插件

--新建协议zc_smpp_plus = Proto("zc_smpp_plus","Use for ZC SMPP+ Query","ZC smpp plus Protocol")--定义协议字段local f_Command_Length = ProtoField.uint32("zc_smpp_plus.Command_Length", "Command_Length", base

2014-12-02 14:56:52 2569

转载 telnetlib 中各种 read 函数的意义

telnetlib 中各种 read 函数的意义<br />Created: Fang lungang 07/06/2007 Modified: Fang lungang 07/09/2007 10:27><br />原作者：方伦钢<br />原地址：http://blog.chinaunix.net/u/23408/showart_336561.html缘起<br />最近想用 python 的 telnetlib 写个测试脚本。可是 telnetlib 里一堆的 read 函数，又是 lazy 又是

2010-09-08 16:36:00 4014

原创 logging模块使用

Log_FileName=z://alog.txtdef InitLog(): logger = logging.getLogger("Transform_Log") logger.setLevel(logging.DEBUG) fhdlr = logging.FileHandler(Log_FileName) fhdlr.setLe

2010-05-11 13:50:00 639

原创一个使用sqlite3的脚本，包括attach到本地

import sqlite3class MySum: def __init__(self): self.count = 0 def step(self, value): self.count += value def finalize(self): return self.countcon = sqlite

2010-04-19 14:35:00 947

原创用Defraggler打造自己的免费自动磁盘整理工具

1，安装Defraggler2，在安装目录下找到df.exe文件记录下路径以替换一下df.exe程序的路径3，自动"整理磁盘.bat" @echo offtitle 磁盘碎片整理 color b4echo 正在进行磁盘整理，请稍后。。。echo.echo 需要整理的磁盘有："D:/Program Files/Defraggler/df.exe" /Lec

2010-04-10 11:29:00 1020

原创 Cygwin 的代理设置

.bash_profile中设置 #设置代理export http_proxy=http://192.168.136.47:808

2010-04-10 11:28:00 6623

原创 Cygwin 下建立自己的Git系统与远程同步

Git 的概念和基础使用不再详述，请参考《面向 Subversion 用户的 Git，第 1 部分: 入门指南》心血来潮在Cygwin下配置一下Git，Cygwin的安装请自己Google（虽然已经离开了中国，缅怀一下） Cygwin下必须安装的软件:Git,OpenSSH---可以直接通过Cygwin的管理器下载如果需要SSH支持代理，还需要下载一个代理软件：conn

2010-03-25 18:59:00 1708

转载 Oracle:PL/SQL 中如何使用Array

http://tech.163.com/05/0701/10/1NIODMQS00091589.html 因为在PL/SQL 中并没有数组. 这是偶查资料找的范例和自己写的范例来解释如何在PL/SQL 中使用数组. 也许很多人已知道, 不过就是让不知道的朋友们了解一下吧。---------------------- 单维数组-----------------------

2010-02-11 09:43:00 436

翻译 plsql 数组

declare TYPE TYPE_TABLE IS TABLE OF VARCHAR2(1000) INDEX BY PLS_INTEGER; V_ACC_NBR TYPE_TABLE;begin /*数组赋值*/ --================================================================

2010-02-11 09:29:00 705

原创 pl/sql存储过程中游标嵌套的实现方法

游标2用游标1每条记录中的条件查找游标2用参数实现，其中MyString VARCHAR2(20);是测试用的变量如下create or replace procedure cursor_exampleasMyString VARCHAR2(20);CURSOR SelectContent ISselect A1,A2 from A;CURSOR SelectContent2(A1St

2009-06-05 18:22:00 507

原创 Python FTP例子

#!/usr/bin/env python.exe#coding=gbkfrom ftplib import FTPfrom os.path import basename, dirname, existsfrom os import stat, rename, removefrom time import localtime, strftimefrom sys imp

2009-05-15 22:22:00 3079 1

原创 3G体验

最近在测试联通的3G,(现在写这篇文章用的就是),感觉速度很一般,比2M的宽带要慢一点,而且要看信号,不过起码有一个可以在公司上网不受限制的方法,呵呵.

2009-05-08 15:42:00 506

转载常用的python库

　　Tkinter———— Python默认的图形界面接口。　　Tkinter是一个和Tk接口的Python模块，Tkinter库提供了对Tk API的接口，它属于Tcl/Tk的GUI工具组。Tcl/Tk是由John Ousterhout发展的书写和图形设备。Tcl(工具命令语言)是个宏语言，用于简化shell下复杂程序的开发，Tk工具包是和Tcl一起开发的，目的是为了简化用户接口的设计过程。Tk

2009-05-08 15:39:00 1092

原创下载网上上一些电子版报纸的perl代码

#!c:/perl/bin/perl.exe################################################################################## 下载各大报纸电子版# get_e-paper.pl -n paperName# -l 显示当前支持报纸,即-n后可以支持的paperName##############

2008-10-17 11:09:00 747

转载脚本切换windows IP 和 IE 代理

转自http://blog.youkuaiyun.com/microrain/archive/2007/08/06/1728147.aspx@echo offcolor 1ftitle 网络环境切换管理echo.echo ***　设置IP参数,设置IE代理　*** echo.echo.goto menus~:menus~echo.echo 请选择: echo 1 切换到公司网echo 2 切换到自动获取直

2008-09-18 20:56:00 1257

原创 Perl脚本自动获取Chrome最新版本

#!c:/perl/bin/perl.exeuse LWP::Simple;#use LWP::Debug qw(+);use warnings;use strict;use Data::Dumper;my $new_throme_url = q(http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/LATEST);my $use

2008-09-15 12:54:00 1499

原创 Perl 的一个ftp自动脚本

配置文件:===================================================[AUTO_FTP_DOWN]#远程下载FTPIPHOST_IP_DOWN=127.0.0.1#远程下载FTP用户名HOST_USER_DOWN=11#远程下载FTP密码HOST_PWD_DOWN=11#远程FTP下载目录,从这个目录GET文件ROMOTE_DOWN_PATH=/

2008-09-02 17:12:00 1701

原创在Cygwin中安装DBD::Oracle，

采用perl 5.10版本,DBD::Oracle 1.22 export ORACLE_USERID=test/test@test102 ######################################### for ORACLE client########################################export ORA

2008-09-02 14:03:00 861

转载屏幕上打印进度

#!/usr/bin/perl$|++;foreach (1..10){ print "/rthis is ", $_; sleep (1);}

2008-08-27 10:53:00 562

原创非阻塞的Socket链接读取

use Errno qw(EWOULDBLOCK); eval{ alarm($time_out); #发送包 $succ_bytes=$socket->send("$_") || die "send date err! $!"; print "发送字节数为:$succ_bytes/n"; #接收包 #从包头读取包总长度

2008-08-27 10:50:00 568

原创阻塞的Socket链接

#!/usr/bin/perl -w# socket_cli.plx# usage # socket_cli.plx 同一个文件重复运行次数发送socket包存放的文件 [从文件第几行开始运行]use strict;use IO::Socket;use Benchmark;my $addr = 127.0.0.1;my $port = 40169;my $for_num = $

2008-08-26 10:42:00 540

原创郁闷的csdn

前两天不能登录csdn,还以为自己dns机器坏了,上网问问,找找才知道被封了,网上传的风言风语,不知道那个是真的,但是这段时间不能更新blog,搞得我一些激情都没有了,唉,用csdn作资料整理备份还是不可靠呀今天赶紧上来踩一下.

2008-08-18 15:41:00 534

转载 IE打不开.xml文件弹出下载对话框的解决办法

登录网站用.xml文件做的时,提示下载,根本打不开. 我试图在文件夹选项可注册表中重新设置打开方式，结果还是不行。。到网上搜索一下相关的方法呢。果然搜索到了，使用以下命令就可以恢复XML文件的默认关联：REGSVR32 MSXML3.DLL 运行之后，XML的打开方式就恢复默认了。

2008-07-31 09:38:00 3647 2

原创 Perl模块安装到非默认路径及其使用

Perl安装到非默认路径的方式:perl Makefile.PL PREFIX=/lib/path Perl非默认路径模块的引用:Perl:use lib /lib/path;Shell:export PERLLIB=$PERLLIB:/lib/path perl -V可以查看@INC中的默认路径这个路径卸载Config.pm文件中

2008-07-29 20:47:00 6685

原创 Getopt::Std模块简单实例

#!/usr/bin/perl -wuse strict; # always use strict, its a good habituse Getopt::Std; # see "perldoc Getopt::Std"my %options;getopts(f:hl, /%options); # read the options with getopts# uncommen

2008-07-29 15:47:00 657

原创 CYGWIN下的.bash_profile文件

# base-files version 3.7-1# To pick up the latest recommended .bash_profile content,# look in /etc/defaults/etc/skel/.bash_profile# Modifying /etc/skel/.bash_profile directly will prevent# setup f

2008-07-28 13:30:00 289

原创 shell下自动ftp脚本

ftp -i -n -v open 127.0.0.1user user_name user_passwdbinarycd /dir1/mget *cd /dir2/mget *EOF

2008-07-28 13:27:00 1154

原创简单测试Oracle连接的脚本

#!/bin/perluse DBI;$dbname = "JSBSS_TEST";$user = "oss";$passwd = "as1a1nf0";$dbh = "";$dbh = DBI->connect( "dbi:Oracle:$dbname", $user, $passwd ) or die "Cant connect to Oracle database: $

2008-07-28 13:24:00 703

原创采用Net::OICQ编写qq暴力破解程序

#!/usr/bin/env perluse strict;use Net::OICQ::TextConsole;#print "Crypt::OICQ version $Crypt::OICQ::VERSION, Net::OICQ version $Net::OICQ::VERSION/n";print "暴力扫描QQ用户列表密码!/n===========================

2008-07-28 13:15:00 1749

原创 Parse::RecDescent解析文本的例子

#!/usr/bin/perl -wuse strict;use Parse::RecDescent;use Data::Dumper;sub chomp_str{ my ( $str ) = @_; $str=substr($str,0,index($str,"/t")); return $str;}my $grammar = q{ one_da

2008-07-28 13:13:00 1031

原创 MD5验证的Perl脚本

#!/opt/perl/bin/perl -wuse strict;use Digest::MD5 qw(md5 md5_hex md5_base64);#校验文件函数sub calc_md5_hex() { my ($file_name, $ctx, $md5); ( $file_name ) = @_; open (FILEHANDLE,$file_n

2008-07-28 13:01:00 2013

原创 File::Find与文件时间比较的例子

#!c:/perl/bin/perl -wuse strict;use File::Find;my $file_num=0;sub l_time { my ( $__in_time ) = @_; my ($__now_time); eval{ my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday,

2008-07-28 12:57:00 685

原创一个简单的Perl多线程脚本

===============================#!/usr/bin/perl -wuse strict;our $max_child = 20;$|=1;my $grp_pid = getpgrp();foreach my $item (1..80){ my $p_count = `ps -ef|grep ${grp_pid}|grep

2008-07-28 11:29:00 815

原创 cpio的使用

最近我们研发不知道中了什么魔,开始使用cpio来打包程序,发布.以前习惯了用tar,cpio还是需要习惯一下.查了查IBM的文档,将一些常用cpio使用列在这里,详细IBM文档见后面.解压整个cpio文档:cpio -idmv 列出归档中所有文件信息cpio -itv 释放出归档中指定文件列表(文件名称要与归档使用的路径相同,如相对路径等)cpio -idmv fil

2008-04-03 10:46:00 3321

原创 [Perl][Mail]关于邮件的几个模块

这几天净捣鼓收取邮件的问题了,一开始用了些基本的模块,很多问题解决不了,查找了文档才有点眉目.先说说环境:Cygwin+Perl5.8+Mail::POP3Client+MIME::Parser+MIME::Entity+Time::HiResMail::POP3Client 封装了基本的Net::POP3,使用起来更简单MIME::Parser是MIME::Entity的子类,就是

2008-04-02 22:08:00 2399

原创最近在学Perl

学习的原因就是觉得Perl比较强大,虽然现在不是很流行,不过作为Unix标准配置绝对是推荐的好工具,只希望perl6能够挽回当年的辉煌

2008-04-02 21:28:00 99

原创 Nutch 安装使用笔记

这几天有朋友让我一起看一些关于搜索引擎的技术，说实话我的专业还是信息搜集那，可惜在学校老师教的都是一些古老的信息整理方法，早就已经过时，不过我对信息搜集整理还是很感兴趣的。说正题吧，介绍一下这次需要试用的搜索应用：Nutch在网上了解到一些关于搜索引擎的知识，好像现在比较热门的就是Lucene，Nutch了，而且Nutch的主要开发人员Doug Cutting还是开发Lucene的。而且别的几种搜

2006-02-21 19:03:00 5369

原创自己写的一个简单得shell得菜单

#!/bin/sh############################################################################## ganmao:2005-3-22## 一个简单得shell菜单，为了方便自己使用#### Usage():## menu.sh#######################################

2005-03-24 10:13:00 1609

原创听说中学课本收录金庸小说之后

我觉得这是一个好事，毕竟什么都是尝试得，什么都要学习，不过要有一个地线，金庸得小说不仅有优美得文字，严谨得结构，更重要得是对读者有利，没有不良得思想，武侠在金庸笔下已经不仅仅是地摊货，为什么很多人总是用有色得眼睛去看呢？看到很多反对的，我有想到，当年在中学课本收录朱自清得背影时是否有人觉得他还没有收录中学年纪得年纪高？我只持改革！

2005-03-02 20:53:00 980

rinetd aix版 一个端口转发工具

Chilkat_doc

MySQL 5.1参考手册

PleacPerl.chm

空空如也

rinetd aix版一个端口转发工具