流年飘飘『AskWan』

php扩展模块tidy安装

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

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

首先安装tidy库支持

可以用svn checkout 最新源代码

引用

#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

编译安装

引用

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

安装tidy的php支持

引用

#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文件
增加

引用

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:

引用

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

安装ffmpeg库支持

引用

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

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

checkout ffmpeg-php源码
ffmpeg-php：

引用

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

引用

#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

让php支持oracle 10g 数据库

Tue, 04 Nov 2008 09:46:51 +0000

Oracle对php的支持或者说php对Oracle的支持从Oracle8就开始了，本文主题是记录我在linux系统下编译php以让它可以支持连接Oracle数据库的技术细节。

本文环境为 CentOS4.4 Oracle10gR2 For Linux

假设apache和Oracle已经安装好，且假设Oracle主要的系统环境变量如下：

ORACLE_BASE=/u01/app/oracle;
export ORACLE_BASE
ORACLE_HOME=$ORACLE_BASE/product/10.2.0/db_1;
export ORACLE_HOME
ORACLE_SID=newdb;
export ORACLE_SID
ORACLE_TERM=xterm;
export ORACLE_TERM
PATH=/usr/sbin:$PATH;
export PATH
PATH=$ORACLE_HOME/bin:$PATH;
export PATH
export ORACLE_HOME_LISTNER=$ORACLE_HOME
LD_LIBRARY_PATH=$ORACLE_HOME/lib:/lib:/usr/lib;
export LD_LIBRARY_PATH
CLASSPATH=$ORACLE_HOME/JRE:$ORACLE_HOME/jlib:$ORACLE_HOME/rdbms/jlib;
export CLASSPATH
export LD_ASSUME_KERNEL

当前shell环境下，解压php，并export出Oracle的几个环境变量，
下面这几个是必须的

export ORACLE_BASE=/u01/app/oracle
export ORACLE_HOME=$ORACLE_BASE/product/10.2.0/db_1
export ORACLE_SID=newdb
export PATH=$PATH:$HOME/bin:$ORACLE_HOME/bin
export LD_LIBRARY_PATH=$ORACLE_HOME/lib:/usr/lib

然后编译，这是我的编译选项，根据各自需要稍有不同

引用

./configure --prefix=/usr/local/php --with-apxs2=/usr/local/apache2/bin/apxs --with-libxml-dir=/usr/local/libxml2 --with-gd=/usr/local/gd2 --with-freetype-dir=/usr/local/freetype/ --with-zlib-dir=/usr/local/zlib/ --with-jpeg-dir=/usr/local/jpeg6/ --with-png-dir --with-ttf --enable-mbstring --with-mysql=/usr/local/mysql --with-mysqli=/usr/local/mysql/bin/mysql_config --disable-ipv6 --enable-static --enable-sockets --enable-soap --with-oci8=$ORACLE_HOME

然后一路一次

引用

make
make test
make install

下面设置apache对php的支持，在apache配置文件适当位置加入

AddType application/x-httpd-php .php
AddType application/x-httpd-php-source .phps

然后重新启动apache，这时候不出意外情况的话，大概会有一些错误出现，除非你的Oracle安装目录权限给放得太大了。

引用

Warning: ocilogon() [function.ocilogon]: OCIEnvNlsCreate() failed. There is something wrong with your system - please check that ORACLE_HOME is set and points to the right director

之所以出现这些错误，这和apache和oracle目录权限有关，这也是我今天遇到的，所以建议启动apache的时候，先export
下Oracle的环境变量，一条一条的export，嫌麻烦的话，写到一个脚本里面吧

vi startapache.sh

引用

#!/bin/sh
ORACLE_BASE=/u01/app/oracle
ORACLE_HOME=$ORACLE_BASE/product/10.2.0/db_1
ORACLE_SID=newdb
export ORACLE_HOME ORACLE_SID
echo "Starting Apache......"
/usr/local/apache2/bin/apachectl start
echo "Starting Apache Sucessful......"

最后一步测试一下，写一个phpinfo页面，如果出现如下段，那就成功一半了

下面测试一下php真实的连接Oracle的情况，下面这个是OTN上弄来的本人直接“拿来主义了”

测试用户是Oracle的例子用户的scott tiger

$db_conn = ocilogon( "scott", "tiger","newdb" );

$cmdstr = "select ename, sal from emp";

$parsed = ociparse($db_conn, $cmdstr);
ociexecute($parsed);

$nrows = ocifetchstatement($parsed, $results);

echo "Oracle PHP For Askwan newdb";
echo "

Oracle PHP For Askwan newdb

";
echo "\n\\n";
echo "\n\n\n";

for ($i = 0; $i < $nrows; $i++ )
{
    echo "\n";
    echo "";
    echo "";
    echo "\n";

}

echo "

Name	Salary
" . $results["ENAME"][$i] . "	$ " . number_format($results["SAL"][$i], 2). "
Number of Rows: $nrows

";
echo "
If you see data, then it works!
\n";

?>

如果能看到select的查询输出，那就没有问题了

全文完

Tags - oracle , php , oci8 , linux , centos

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为例实做

引用

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

引用

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

引用

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!

引用

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文件

引用

C:\Mail-SendEasy-1.2>nmake ppd

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

打包

引用

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

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

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

向mysql中插入千万行数据测试脚本

Fri, 31 Oct 2008 02:57:34 +0000

#!/usr/bin/perl -w
use DBD::mysql
$user="askwan";
$password="123456";
$hostname="192.168.0.251";
$database="test";
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh=DBI->connect($dsn,$user,$password);
eval { $dbh->do("DROP TABLE T_askwan") };
      print "Dropping T_askwan failed: $@\n" if $@;
$dbh->do("CREATE TABLE T_askwan (id INTEGER, name VARCHAR(20),email VARCHAR(30))");
for(my $i=1;$i<10000001;$i++){
   $dbh->do("INSERT INTO T_askwan VALUES ($i, " . $dbh->quote("$i-Tim") . "," . $dbh->quote("$i-askwan\@yahoo.cn") .")");
   if(!($i%1000)){
   print "$i rows has insert!\n";
   }
}
print "sucessfully insert into 10000000 rows data !\n";
$dbh->disconnect();

程序每插入1000 Rows 就会向你报告一次，剩下的，你就可以去看看报纸，喝点茶，！@#￥%……&
，总之，干什么都可以

只要是等待时间总是漫长的

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

SNS之群雄逐鹿

Wed, 15 Oct 2008 05:09:00 +0000

一下子冒出来两个开心网，一个伤心网，这SNS之战争，可真够激烈的……

这些网站都在测试阶段，注册都需要邀请，想要邀请连接的有福了！

www.kaixin001.com

注册邀请连接：
http://www.kaixin001.com/reg/?uid=7159448&usercode=d943390c6ced3bf29632a85eb28651f1_7159448__%E6%99%AE%E9%80%9A%E6%9C%8B%E5%8F%8B

www.kaixin.com

注册邀请连接：
http://reg.kaixin.com/inviteregist.do?i=700008283&appId=&code=7yeVcZXIxj&from=&inviteType=2&ss=80107&logid=260409&buddygroup=%E6%99%AE%E9%80%9A%E6%9C%8B%E5%8F%8B

www.shangxin001.com

这个我还没有邀请连接有的哥们给我一个吧嘿嘿

Tags - sns , 开心网 , 伤心网

用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

强烈推荐一部野外生存教学片 Man Vs. Wild

Mon, 13 Oct 2008 02:21:53 +0000

这周周末一口气看了一部绝对让你瞠目的教学片 Man Vs. Wild，中文翻译为《荒野求生秘笈》，目前有中文字幕的是台湾的版本，只有前面三季，还在更新之中，无字幕的已经到第五季了，在电驴上有下载
点这里去下载，这里还有详细的介绍


    主角贝尔．格里尔斯是一名经验丰富的冒险家，曾于英军的特种部队服役。据说还是电视台主持人和作家，此人绝对是一牛人！这是我找到的他的个人网站：http://www.beargrylls.com，大家可以去逛逛。

再来说说这片子
    在这部片子里，生存方式极近原始，少有罗嗦。贝尔在全球一个一个绝对堪称是 “穷山恶水”“极度荒野”“生死一线”的地方，展示给我们各种求生的方法，这些地方包括高山，雨林，沼泽，太平洋荒岛，火山……它还真人演示生吃幼虫卵，生吃树叶，生吃鱼，抓响尾蛇，野兔子……，有些看得人汗毛都直了，有些则不断的让我们钦佩贝尔身上的见识和技能，比如做木筏，做弓箭，做鱼叉，就地取材做绳子。身处绝境，他身上展现的除了拥有各种生存技巧知识，广博的见识，顽强的求生意志力，乐观的生活态度，这些都深深打动着我，在大自然面前，我感觉到了人的渺小，但同样在广袤的大自然面前，我感受到了人的伟大……

  虽然这部片子有报道说是欺骗观众，youtube也有曝光的视频片段，但无论如何，都不能否定这部片子的教学意义，那天我们真的遇难了，这部片子里的各种荒野生存技巧必将最大限度的帮助脱离困境，而且要拍这部片子，必然要有一批摄影小组更随，贝尔以及随同贝尔在一起的摄影小组，都得付出艰辛的努力和巨大的代价，并且要做好各种紧急救助措施，道理很简单，大家可以看到，在那些沼泽，高山，雨林，即使是作为特种兵并且身经百战的贝尔，也同样面临随时的死亡危险，比如有几集里短吻鳄和黑熊，稍微不注意，就挂了，也没有人再敢以身赴死去这些地方拍摄啥骗子，教育未来可能出现在这些困境之中的人了，所以还在说这部片子某些地方“欺骗观众”的那些人，我觉得你们应该shutup了！。
  在此，在这里将这部片子推荐给光临本博客，并看到此文的人，这绝对是一部猛片，最后感谢在VC上发布此片源的兄弟！。
Tags - 荒野求生秘笈 , 'man , vs. , wild'求生

做本地yum源

Fri, 10 Oct 2008 09:43:52 +0000

在无法上网的情况下没办法用yum在线安装升级rpm包
但只要有镜像文件我们可以做本地yum源同样可以解决一些包依赖问题。

将ISO文件所有文件复制到 /opt/目录下
在/etc/yum.repos.d/ 下新建media.repo文件

引用

[InstallMedia]
name=Fedora 9 - Media
baseurl=file:///opt/
gpgcheck=1
enabled=1
gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-beta

并将该目录下其他文件更名，只留media.repo文件以提高速度
然后就可以直接yum安装系统自带的各种包！
当然，也可以直接配置在 /etc/yum.conf,而不理会/etc/yum.repos.d/或将其更名。

Tags - yum , 本地源

利用CPAN安装特定模块的方法

Thu, 09 Oct 2008 02:17:14 +0000

打开http://search.cpan.org/ ，搜索你需要的特定模块的名字
搜索到后，将模块下载下载下来

本文以Math::BigInt模块为例，

引用

#wget http://search.cpan.org/CPAN/authors/id/T/TE/TELS/math/Math-BigInt-1.89.tar.gz

引用

#tar -zxvf Math-BigInt-1.89.tar.gz

引用

#perl Makefile.PL

//产生makefile文件

**********************************************************************
Attention: After installing this package, you should also update:

Math::BigInt::FastCalc to at least v0.19 (you have v0.16)
Math::BigRat to at least v0.22 (you have v0.21)

Checking if your kit is complete...
Looks good
Writing Makefile for Math::BigInt

没有问题，下面编译安装

引用

#make
#make test
#make install

检查一下版本

引用

#perl -MMath::BigInt -le 'print "v$Math::BigInt::VERSION"'

v1.89

没有问题，这样模块就会自动安装到perl的核心模块目录中！
Tags - cpan , perl , module , install

perl DBI操作Mysql

Wed, 08 Oct 2008 07:10:16 +0000

用perl DBI操作mysql非常直接。
先必须安装好Perl DBI模块和MySQL DBD驱动
查看是否安装好
#perl -e "use DBI"
有返回信息则表示没有安装好

假设本机mysql有一数据库为askwan，并已经建立一空表user，连接用户名和密码分别是root和123456；
下面编写的代码可以用作常用的模板。

[codes=PHP]#!/usr/bin/perl -w

use DBI;

my $dbh = DBI->connect("DBI:mysql:database=askwan;host=localhost", "root", "123456", {'RaiseError' => 1});

my $rows = $dbh->do("INSERT INTO users (uid, username, country) VALUES (1, 'hack0', 'CN')"),(2,'hack1','EN');

my $sth = $dbh->prepare("SELECT username, country FROM users");
$sth->execute();

while(my $ref = $sth->fetchrow_hashref()) {

print "User: $ref->{'username'} --------- Country: $ref->{'country'}\n";

}[/codes]
Tags - perl , dbi , mysql

关于linux大内存支持

Mon, 06 Oct 2008 08:53:38 +0000

缘起：一台8G内存的机器装centos4.4 for i386可以认出8G内存

引用

top - 16:39:06 up 1 days,  5:11,  2 users,  load average: 0.08, 0.04, 0.00
Tasks:  99 total,   1 running,  98 sleeping,   0 stopped,   0 zombie
Cpu(s):  0.0% us,  0.0% sy,  0.0% ni, 99.8% id,  0.2% wa,  0.0% hi,  0.0% si
Mem:   8312704k total,  8274712k used,    37992k free,    80164k buffers
Swap:  2031608k total,      132k used,  2031476k free,  7765984k cached

后来装centos5 for i386 只认出3.3G内存。

解决：
对于32位linux系统，要支持大内存，两个方面
1.安装支持大内存的内核
2.主板BIOS开启大内存支持选项

本文以centos和freebsd为例

对于centos：
低版本（centos5.0以下版本）：yum install kernel-hugemem
高版本（centos5.0以上版本）：yum install kernel-PAE

但单一进程没办法访问超过4g的内存

修改grub配置文件，用安装的支持大内存内核启动；

对于freebsd：
编译freebsd内核，增加options PAE 选项
查阅不少文档，此选项只针对Intel 32位架构有效，且同样，单一进程没办法访问超过4g的内存，用多进程也一种解决方法。

比如一台16G内存的服务器，作为memcached服务端启动一个：
./memcached -d -m 8192 -l 192.168.0.10 -p 50001
将会启动一个占用8G内存的进程，并打开50001端口用于接收请求。因32位系统只能处理4G内存的寻址，所以即使启动成功了，也将会有大量内存白白浪费掉，那么这个时候可以考虑在服务器上可以运行2到3个这样的进程，在不同端口进行监听的方式，如：
./memcached -d -m 4096 -l 192.168.0.10 -p 50001
./memcached -d -m 4096 -l 192.168.0.10 -p 50002
./memcached -d -m 4096 -l 192.168.0.10 -p 50003
……等

插入一点东东介绍PAE
PAE:Physical Address Extension ，它是Intel 提供的一种内存地址扩展机制，在32 位的机器上使用超过8GB的内存是不明智的，即使启用了PAE 也是如此。

内存够大，机器硬件也支持的话，建议用64位操作系统

还是那句话：永远不要指望用软件的方法去解决硬件的问题。

Tags - linux , centos , pae , kernel-pae