『AskWan』

use perl to get timestamp

Fri, 30 Oct 2009 00:48:08 +0000

in different  context have different value
eg:
saclar context
print scalar (localtime);

then output :
Thu Oct 29 18:50:01 2009

but in list context ;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$sec    0 ~ 59
$min    0 ~ 59
$hour  0 ~ 23
$mday   1~31
$mon     0 ~ 11
$year   after 1900,it passed years
$wday    0 ~ 6
$yday    0 ~365
$isdst   insignificant for me

can use this to get timestamp

output:
2009-10-29 19:2:40

have some defect ablove,use this

output:
2009-10-29 19:02:45

you can also use POSIX functions:
eg

output:
2009-10-29 11:10:44
2009-10-29 19:10:44

use DBD::Pg to connect PostgreSQL database

Tue, 20 Oct 2009 02:01:50 +0000

first, install DBI and DBD::Pg module

come next two example I have writen for testing:

example one:

example two:
output :

datname             blks_read           blks_hit            
------------------------------------------------------------
template1           0                   0                   
template0           0                   0                   
postgres            136                 5955                
askwan              124                 7396

Tags - ' , dbd:pg'postgresql

use DBD::Oracle connect oracle database

Thu, 10 Sep 2009 12:40:07 +0000

the first way:

the second way:

----------END-----------
Tags - perl , dbd , oracle

perl连oracle取BLOB字段值

Wed, 09 Sep 2009 07:00:51 +0000

oracle数据库中有一字表字段类型为BLOB，存储的pdf，doc文档等的二进制文件数据，现在要拿出来这些文件来

#!/usr/bin/perl

use DBI;
$dbh = DBI->connect("dbi:Oracle:ASKWAN","askwan","askwan") or die("DATABASE connect error!\n");
$dbh->{LongReadLen} = 50*1024*1024;
$dbh->{LongTruncOk}=1;
$count=0;

$sql = "select FJWJMC,bgfj from BGJBXXB";

$sth = $dbh->prepare($sql);

$sth->execute() or die(" EXCUTE SQL ERROR! \n");

while(@rows = $sth->fetchrow)
{
  $count++;

if(@rows[0]=~/\.pdf/i){
  print "$count\n";
  open(FD,">@rows[0].$count.pdf");
  binmode(FD);
  print FD @rows[1];
  close(FD);
  print "@rows[0] export compelte!\n"
  }
  
  elsif(@rows[0]=~/\.doc/i){
  print "$count\n";
  open(FD,">@rows[0].$count.doc");
  binmode(FD);
  print FD @rows[1];
  close(FD);
  print "@rows[0] export compelte!\n"
  }

elsif(@rows[0]=~/\.xls/i){
  print "$count\n";
  open(FD,">@rows[0].$count.xls");
  binmode(FD);
  print FD @rows[1];
  close(FD);
  print "@rows[0] export compelte!\n"
  }
  else{
  print "$count\n";
  open(FD,">@rows[0].$count.ppt");
  binmode(FD);
  print FD @rows[1];
  close(FD);
  print "@rows[0] export compelte!\n"
  }

print "\n";
}

$sth->finish;
$dbh->disconnect();
exit 0;

------------end----------
Tags - perl , oracle , blob

simple way to parse apache log with perl to find top 10 clients

Fri, 04 Sep 2009 07:03:23 +0000

usage and output:

./parse_apache.pl [APACHE LOGFILE]

# perl parse_apache.pl access_askwan_com_log
Client IPs              Num Of Visits
192.168.11.8            1794924
192.168.11.60           80887
192.168.11.9            34403
192.168.11.50           18026
192.168.11.196          8379
192.168.11.201          1353
192.168.11.155          1041
192.168.21.156          449
192.168.21.161          163
192.168.12.2            84

-------------end--------------
Tags - parse , apache , logperl

Memcached的Php测试实现

Fri, 20 Feb 2009 07:40:00 +0000

关于Memcached的原理，安装，配置等这里就省了，一搜一堆，今天我写了个PHP简单脚本做了个Memcached缓存数据库查询结果的测试。

测试的数据，我这有现成的，PW论坛数据库的pw_members表，取最后注册的十条数据：

mysql> select uid,username,password,gender from pw_members order by uid desc limit 10;  
+--------+-----------+----------------------------------+--------+
| uid    | username  | password                         | gender |
+--------+-----------+----------------------------------+--------+
| 751490 | a62986233 | 8d03f56ad2c48d494cd4b73b3ba64dca |      0 | 
| 751489 | hldhoxbh  | 25d55ad283aa400af464c76d713c07ad |      0 | 
| 751488 | wuhan0088 | ba2206cbae7c1bfe33a54ff161943bab |      0 | 
| 751487 | anrron    | b206e95a4384298962649e58dc7b39d4 |      0 | 
| 751486 | hldjxlkx  | 9c98df872d24244696c393a1d26ab749 |      0 | 
| 751485 | 1394afjh  | 25d55ad283aa400af464c76d713c07ad |      0 | 
| 751484 | yesi808   | 32baeaa3c422413843b015919c0be999 |      0 | 
| 751483 | IDC010pw  | 25f9e794323b453885f5181f1b624d0b |      0 | 
| 751482 | ebay360v  | a36b9e764318d31b4810d7d18096e6e7 |      0 | 
| 751481 | ppgqsvgv  | 9c98df872d24244696c393a1d26ab749 |      0 | 
+--------+-----------+----------------------------------+--------+
10 rows in set (0.00 sec)

脚本代码

<?php
 /***********************************************  
  * Script  Name :   Memcache Tesing               *  
  * Make By      :   askwan （万志华）             *  
  * Website      :   askwan.com                    *  
  * Email        :     askwan@yahoo.cn               *  
  * License      :    GPL (Gnu Public License)      *  
  * Created Date :  20/02/2009                    *  
  ***********************************************/

#数据库连接信息

$host="192.168.0.71";
    $user="askwan";
    $passwd="passwd";
    $db="pwbbs";
    
    $query="select UID,username,password,gender from pw_members order by uid desc limit 10;";
  
  #我这里选用了MD5方式加密SQL做为key ，也可用其他加密方式，如Base64等
    $m_key=md5($query);
    
    $mem=new Memcache();
    $mem->connect("192.168.0.72",11211);
     
    if(!$result=$mem->get($m_key)){
    echo "这是从数据库读出来的结果!";
    $connection=mysql_connect($host,$user,$passwd) or die ("Unable to conect!" );
    mysql_select_db($db);
    $result=mysql_query($query) or die("Error query!".mysql_error());                                                          
    while($row=mysql_fetch_row($result)){
        $memdata[]=$row;
    }
    $mem->add($m_key,$memdata);
    mysql_free_result($result);
    mysql_close($connection);    
    }
    else{
    echo "这是从Memcached Server读出来的结果!\n"; 
    }
    
    $result=$mem->get($m_key);
    #显示获取的数据
    echo "<table cellpadding=10 border=2>";
    echo "<tr>";
    echo "<th>Uid</th>";
    echo "<th>Username</th>";
    echo "<th>PassWord</th>";
    echo "<th>Gender</th>";
    echo "</tr>";
    for($i=0;$i<10;$i++){
        echo "<tr>";
        for($j=0;$j<4;$j++){
        echo "<td>".$result[$i][$j]."</td>";
        }
        echo "</tr>";
    }      
?>

第一次读取数据是直接从Mysql数据库中取数据：如：

以后访问就直接从Memcached Server中取数据了：

测试的目的达到,有时间再对Memcached的分布式功能测试一番。

-------------END-------------
Tags - memcached , php , 测试

用xdebug和wincachegrind分析php性能瓶颈

Mon, 12 Jan 2009 03:21:26 +0000

废话不多说

下载安装

#wget http://xdebug.org/files/xdebug-2.0.4.tgz
#tar -zxvf xdebug-2.0.4.tgz
#cd xdebug-2.0.4
#/usr/local/php/bin/phpize
# ./configure --enable-xdebug --with-php-config=/usr/local/php/bin/php-config
#make && make install

vim /usr/local/php/lib/php.ini

将extention_dir="./" 修改为
extension_dir = "/usr/local/php/lib/php/extensions/no-debug-non-zts-20060613/"
增加一行
extention ="xdebug.so"

然后末尾增加

[Xdebug]
zend_extension_ts=/usr/local/php/lib/php/extensions/no-debug-non-zts-20060613/xdebug.so
zend_extension=/usr/local/php/lib/php/extensions/no-debug-non-zts-20060613/xdebug.so
xdebug.auto_trace = on
xdebug.auto_profile = on
xdebug.collect_params = on
xdebug.collect_return = on
xdebug.profiler_enable = on
xdebug.trace_output_dir="/tmp/xdebug"
xdebug.profiler_output_dir="/tmp/xdebug"

分析用kcachegrind或者wincachegrind都可以
window下就用wincachegrind
下载地址：http://sourceforge.net/projects/wincachegrind/

prebuilt ppm packages for win32 activeperl

Sun, 14 Dec 2008 00:20:37 +0000

This area contains prebuilt ppm packages for Win32 for ActivePerl builds
for 10xx
http://cpan.uwinnipeg.ca/PPMPackages/
http://www.bribes.org/perl/ppm
http://trouchelle.com/ppm10/
http://cpan.uwinnipeg.ca/PPMPackages/10xx/

for  8xx
http://theoryx5.uwinnipeg.ca/ppms/
http://www.bribes.org/perl/ppm
http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer58
http://theoryx5.uwinnipeg.ca/ppms/
http://trouchelle.com/ppm/
http://ppm.tcool.org/archives/

for  6xx
http://theoryx5.uwinnipeg.ca/ppmpackages/
http://www.bribes.org/perl/ppm
http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer

eg::
Packages in this directory may be installed by giving the following command at a DOS prompt:

C:\>ppm install http://cpan.uwinnipeg.ca/PPMPackages/10xx/[package].ppd

php扩展模块tidy安装

Thu, 20 Nov 2008 06:09:59 +0000

tidy是一个非常好用的html代码分析和纠错的工具,
这里有相关介绍：http://pecl.php.net/package/tidy

首先安装tidy库支持

可以用svn checkout 最新源代码

Quotation

#cvs -d:pserver:anonymous@tidy.cvs.sourceforge.net:/cvsroot/tidy login
#cvs -z3 -d:pserver:anonymous@tidy.cvs.sourceforge.net:/cvsroot/tidy co tidy

或者直接到这里：http://pecl.php.net/package/tidy下载已经打包好的源码包
最新的版本是2005年发布的1.2版
下载地址http://pecl.php.net/get/tidy-1.2.tgz
它支持PHP 4.3.0 or newer

编译安装

Quotation

#cd tidy/build/gmake/
#make
#make install

安装tidy的php支持

Quotation

#wget http://pecl.php.net/get/tidy-1.2.tgz
#/usr/local/webserver/php/bin/phpize
#./configure --with-php-config=/usr/local/webserver/php/bin/php
#make
#make install

修改php.ini文件
增加

Quotation

extension="tidy.so"

phpinfo查看是否生效

Tags - php , tidy

php扩展模块ffmpeg-php安装

Thu, 20 Nov 2008 04:46:24 +0000

我的php安装位置/usr/local/webserver/php/，路径可根据各自需要做些修改

checkout ffmpeg源码
ffmpeg:

Quotation

#svn checkout svn://svn.mplayerhq.hu/ffmpeg/trunk ffmpeg

安装ffmpeg库支持

Quotation

#cd ffmpeg
#./configure --enable-shared
#make clean
#make
#make install

2009-04-10 补充：
不少网友表示编译ffmpeg时候有如下错误：

math-errno -c -o libavdevice/v4l.o libavdevice/v4l.c
In file included from libavdevice/v4l.c:32:
/usr/include/linux/videodev.h:56: error: syntax error before "ulong"
/usr/include/linux/videodev.h:72: error: syntax error before '}' token
libavdevice/v4l.c: In function `grab_read_header':
libavdevice/v4l.c:77: error: storage size of 'tuner' isn't known
libavdevice/v4l.c:141: error: invalid application of `sizeof' to incomplete type `video_tuner'
libavdevice/v4l.c:148: error: invalid application of `sizeof' to incomplete type `video_tuner'
libavdevice/v4l.c:77: warning: unused variable `tuner'
make: *** [libavdevice/v4l.o] Error 1

这个问题可以禁用ffmpeg 的v41 和 v42版本
可以用下面这个编译参数：

Quotation

./configure --disable-mmx --enable-shared --disable-demuxer=v4l --disable-demuxer=v4l2

注：如果系统安装了第三方rpm软件库包，可直接安装ffmpeg支持，更方便
#yum install ffmpeg ffmpeg-devel

checkout ffmpeg-php源码
ffmpeg-php：

Quotation

#svn co https://svn.sourceforge.net/svnroot/ffmpeg-php/trunk/ffmpeg-php

Quotation

#cd ffmpeg-php
#/usr/local/webserver/php/bin/phpize
#./configure --with-php-config=/usr/local/webserver/php/bin/php-config
#make && make install

默认安装到/usr/local/webserver/php/lib/php/extensions/no-debug-non-zts-20060613/下

修改php.ini

修改

extension_dir = "/usr/local/webserver/php/lib/php/extensions/no-debug-non-zts-20060613/"

增加一行

extension = "ffmpeg.so"

重新启动webserver

注：还有一种方法安装是直接编译ffmpeg-php扩展模块到php中
首先copy ffmpeg-php源码到php的ext目录下
phpize 一下
然后重新编译php，在最后增加--with-ffmpeg编译选项

phpinfo查看ffmpeg是否生效

Tags - php , ffmpeg , ffmpeg-php

use nmake to install perl modules on OS of windows

Sat, 01 Nov 2008 03:14:14 +0000

nmake这个工具在visual c++中包含，为了安装一个perl modules 去安装这个么大一个IDE，可能觉得不值得，其实还可以用一些小的比如Dev-Cpp++等一些免费的Windows SDK ，节省时间。
安装完后，设置一下环境变量。
为了最后用源代码安装的modules可以再被其他人使用，需要下载一些unix系统上常见的压缩和打包工具：
下载地址：http://www.weihenstephan.de/~syring/win32/UnxUtils.html
这里面包含的工具很多，几乎可以和最小化安装的linux工具包媲美，在windows下使用一样可以发挥其强大杀伤力。

解压到系统目录，同样需要设置一下环境变量。

首先在cpan下载源代码
解压，利用perl构建Makefile

>perl Makefile.PL

然后用nmake编译C源代码,编译前可以带一些编译参数

>nmake

编译完了，可以测试一下是否编译成功

>nmake test

如果没有问题就可以安装

>nmake install

安装完了，可以构建其发布包

>nmake ppd

对生成的makefile，可以
make config 检查makefile是否最新
make clean 清除本地临时文件
make realclean 清除临时文件包括./blib

在nmake之后，perl需要的包文件都放在./blib 下
然后压缩

>tar cvf xxx.tar.gz blib

打包

>gizp --best xxx..tar.gz

生成ppd文件

>nmake ppd

然后对生存的ppd文件进行稍微修改，就可以分发给其他人使用。

下面以Mail-SendEasy为例实做

Quotation

C:\Mail-SendEasy-1.2>perl Makefile.PL
Checking if your kit is complete...
Looks good
Writing Makefile for Mail::SendEasy

Quotation

C:\Mail-SendEasy-1.2>nmake

Microsoft (R) Program Maintenance Utility Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.

cp lib/Mail/SendEasy/Base64.pm blib\lib\Mail\SendEasy\Base64.pm
cp lib/Mail/SendEasy/AUTH.pm blib\lib\Mail\SendEasy\AUTH.pm
cp lib/Mail/SendEasy/IOScalar.pm blib\lib\Mail\SendEasy\IOScalar.pm
cp lib/Mail/SendEasy.pm blib\lib\Mail\SendEasy.pm
cp lib/Mail/SendEasy/SMTP.pm blib\lib\Mail\SendEasy\SMTP.pm

Quotation

C:\Mail-SendEasy-1.2>nmake test

Microsoft (R) Program Maintenance Utility   Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.

        C:\Perl\bin\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl
1..6
# Running under perl version 5.010000 for MSWin32
# Win32::BuildNumber 1004
# Current time local: Sat Nov  1 11:03:28 2008
# Current time GMT:   Sat Nov  1 03:03:28 2008
# Using Test.pm version 1.25
ok 1

----------------
SMTP SERVER for the tests: mail.139.com
USERNAME: 13800138000
PASSWORD: askwan
FROM: 13800138000@139.com
TO: askwa@yahoo.cn

----------------
SETS:
  host: mail.139.com
  user: 13800138000
  pass: askwan
  from: 13800138000@139.com
  to:   askwan@yahoo.cn
----------------
ok 2
not ok 3
# Failed test 3 in test.pl at line 62
#  test.pl line 62 is:   ok($status) ;
Invalid recipient: 13800138000## AUTH TESTS:
ok 4
ok 5
ok 6

The End! By!

Quotation

C:\Mail-SendEasy-1.2>nmake install

Microsoft (R) Program Maintenance Utility Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.

Installing C:\Perl\html\site\lib\Mail\SendEasy.html
Installing C:\Perl\html\site\lib\Mail\SendEasy\AUTH.html
Installing C:\Perl\html\site\lib\Mail\SendEasy\SMTP.html
Installing C:\Perl\site\lib\Mail\SendEasy.pm
Installing C:\Perl\site\lib\Mail\SendEasy\AUTH.pm
Installing C:\Perl\site\lib\Mail\SendEasy\Base64.pm
Installing C:\Perl\site\lib\Mail\SendEasy\IOScalar.pm
Installing C:\Perl\site\lib\Mail\SendEasy\SMTP.pm
Appending installation info to C:\Perl\lib/perllocal.pod

生成ppd文件

Quotation

打包

Quotation

C:\Mail-SendEasy-1.2>tar cvf Mail-SendEasy-1.2.tar blib
blib/
blib/arch/
blib/arch/.exists
blib/arch/auto/
blib/arch/auto/Mail/
blib/arch/auto/Mail/SendEasy/
blib/arch/auto/Mail/SendEasy/.exists
blib/bin/
blib/bin/.exists
blib/html/
blib/html/site/
blib/html/site/lib/
blib/html/site/lib/Mail/
blib/html/site/lib/Mail/SendEasy/
blib/html/site/lib/Mail/SendEasy/AUTH.html
blib/html/site/lib/Mail/SendEasy/SMTP.html
blib/html/site/lib/Mail/SendEasy.html
blib/lib/
blib/lib/auto/
blib/lib/auto/Mail/
blib/lib/auto/Mail/SendEasy/
blib/lib/auto/Mail/SendEasy/.exists
blib/lib/Mail/
blib/lib/Mail/.exists
blib/lib/Mail/SendEasy/
blib/lib/Mail/SendEasy/AUTH.pm
blib/lib/Mail/SendEasy/Base64.pm
blib/lib/Mail/SendEasy/IOScalar.pm
blib/lib/Mail/SendEasy/SMTP.pm
blib/lib/Mail/SendEasy.pm
blib/man1/
blib/man1/.exists
blib/man3/
blib/man3/.exists
blib/script/
blib/script/.exists

压缩
C:\Mail-SendEasy-1.2>gzip --best Mail-SendEasy-1.2.tar

得到的Mail-SendEasy.ppd文件

    Mail-SendEasy
    Send plain/html e-mails through SMTP servers (platform independent). Supports SMTP authentication and attachments.
    Graciliano M. P. <gm@virtuasites.com.br>



      < CODEBASE HREF="" />

将

修改为

这样Mail-SendEasy.ppd和Mail-SendEasy-1.2.tar.gz 就是我们需要的东西了

Tags - perl , nmake , module , windows

perl发送邮件

Fri, 31 Oct 2008 08:36:58 +0000

Mail::SendEasy这个模块在cpan邮件发送系列关注度比较高，用来发送邮件相当easy
它支持plain/html格式邮件内容，通过SMTP服务器发送邮件，对系统平台没有依赖，
支持附件发送和SMTP认证。

用法可以看它的perldoc
就它的例子做些解释

use Mail::SendEasy ;

  my $mail = new Mail::SendEasy(
  smtp => 'localhost' ,   #SMTP服务器
  user => 'foo' ,           #认证用户名
  pass => 123 ,           #认证密码
  ) ;
#SMTP端口默认为25，连接超时时间默认为120秒

  my $status = $mail->send(
  from    => 'sender@foo.com' ,   #发送者邮件地址
  from_title => 'Foo Name' ,         #发件人名字或标题
  reply   => 're@foo.com' ,           #回复信件地址
  error   => 'error@foo.com' ,        #发送出错信息地址
  to      => 'recp@domain.foo' ,     #接受邮件地址
  cc      => 'recpcopy@domain.foo' , # 接受邮件副本地址
  subject => "MAIL Test" ,         # 邮件主题
  msg     => "The Plain Msg..." ,  #文本格式邮件内容
  html    => "The HTML Msg..." , #html格式邮件内容，有这个则msg无效
  msgid   => "0101" , #给邮件头加一个ID号
  ) ;

  if (!$status) { print $mail->error ;}

Tags - perlmail::sendeasy , 发送邮件

perl 的msn bot

Fri, 31 Oct 2008 06:50:12 +0000

有人已经做好了相关底层模块
下载Click to download
在使用中发现必须要安装Crypt::SSLeay这个模块，不然无法联接
用ppm安装Crypt::SSLeay
>install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd

包里面有个写好的测试文件echobot.pl，可以测试下；
利用这个，可以根据自己需要开发基于perl的msn机器人
Tags - perl , msn , bot

perl 几个常用程序模板

Sat, 18 Oct 2008 13:32:36 +0000

1.Get form data

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
  $buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $name =~ tr/+/ /;
  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $FORM{$name} = $value;
}

2.sendmail

open (MAIL,"|/usr/lib/sendmail");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Subject\n\n";
print MAIL "Body\n";
close MAIL;

3.Get host name by IP address

$ip = $ENV{'REMOTE_ADDR'};
@digits = split (/\./, $ip);
$address = pack ("C4", @digits);
$host = gethostbyaddr ($address, 2);

Tags - perl , template

用eclipse配置一套windows下perl开发环境

Tue, 14 Oct 2008 09:26:30 +0000

各个组件：Eclipse + ActiveState ActivePerl + E.P.I.C +PadWalker

Eclipse下载：http://www.eclipse.org/downloads/index.php

ActivePerl 下载: http://www.activestate.com/downloads/index.mhtml
EPIC : http://e-p-i-c.sourceforge.net/updates/
这个用Eclipse的“Software and Updates”直接升级安装
打开Eclipse
“Help > Software and Updates > Find and Install……“
添加地址：http://e-p-i-c.sourceforge.net/updates
如果想用测试版本的EPIC就用http://www.epic-ide.org/updates/testing
会自动下载安装E.P.I.C插件。
安装好后，根据需要个性化配置一些参数

padwalker: http://www.bribes.org/perl/ppm/
这个用于Eclipse调试perl程序的，用“Perl Package Manager”安装

运行Perl Package Manager
提示在PPM提示下install padwalker

下面来个传说中大家都非常熟悉的hello world！

OK，just all！～
开始写perl程序吧！
Tags - eclipseactivestate , activeperl , e.p.i.c , padwalker , epic