lf226, Applications: MySQL & Perl, 锟斤拷锟斤拷之锟斤拷

by Georges Tarbouriech
<georges.t(at)linuxfocus.org>

锟斤拷锟斤拷锟斤拷锟斤拷:

Georges锟斤拷锟斤拷使锟斤拷Unix锟斤拷锟疥，锟斤拷喜锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟阶ㄒ碉拷锟斤拷锟斤拷诘锟斤拷锟斤拷狻�

What about this nice pair ?
使锟矫的凤拷锟斤拷
锟斤拷锟斤拷锟斤拷锟捷匡拷
Perl锟侥癸拷锟斤拷
锟斤拷全锟斤拷锟斤拷
锟斤拷锟斤拷
锟轿匡拷
锟斤拷锟斤拷篇锟斤拷锟铰凤拷锟斤拷锟斤拷锟斤拷

MySQL & Perl, 锟斤拷锟斤拷之锟斤拷

摘要:

MySQL锟斤拷Perl锟斤拷锟斤拷锟斤拷锟斤拷锟洁当锟斤拷时锟戒，锟斤拷锟斤拷"时锟斤拷"锟斤拷停锟戒化锟脚ｏ拷锟斤拷锟斤拷锟斤拷然锟斤拷锟姐泛使锟矫★拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷谓锟斤拷锟斤拷止锟斤拷呓锟斤拷锟斤拷一锟斤拷应锟斤拷锟斤拷Ineternet锟斤拷锟斤拷锟斤拷锟斤拷锟较★拷锟斤拷锟叫碉拷锟斤拷锟接憋拷写锟斤拷Unix系统锟斤拷锟斤拷然锟斤拷同锟斤拷锟斤拷锟斤拷应锟斤拷锟斤拷锟斤拷锟斤拷锟姐泛使锟矫碉拷系统锟叫★拷
锟斤拷锟侥讹拷锟斤拷锟斤拷锟较碉拷应锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟桔ｏ拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟皆ｏ拷锟劫度ｏ拷锟缴匡拷锟皆ｏ拷锟斤拷全锟皆等★拷
锟斤拷锟侥诧拷锟斤拷锟斤拷一篇MYSQL锟斤拷Perl锟侥教程ｏ拷也锟斤拷锟斤拷一篇锟斤拷MYSQL锟斤拷Perl锟斤拷锟斤拷锟桔★拷
锟斤拷锟角斤拷锟斤拷锟斤拷锟斤拷谓锟斤拷使锟斤拷MySQL锟斤拷Perl锟斤拷锟斤拷要锟斤拷锟斤拷:"there is more than one way to do it"锟斤拷

What about this nice pair ?

MySQL锟斤拷一锟街癸拷系锟斤拷锟斤拷锟捷匡拷系统(RDBMS),锟斤拷锟斤拷页为http://www.mysql.com/锟斤拷锟斤拷锟斤拷GNU GPL锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟绞癸拷茫锟斤拷锟阶拷锟斤拷亩锟斤拷锟饺拷锟斤拷锟斤拷锟� 锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷平台锟较癸拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷同时锟斤拷锟角客伙拷锟剿★拷锟斤拷MySQL之锟解还锟斤拷一些锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟绞碉拷RDBMS,锟斤拷锟斤拷锟斤不锟斤拷锟轿何比较ｏ拷锟斤拷锟侥斤拷锟斤拷锟斤拷MYSQL锟斤拷锟斤拷锟斤拷也锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷些锟斤拷锟斤拷锟斤拷业锟斤拷锟捷匡拷锟斤拷 Informix,Oracle,Sybase锟斤拷锟斤拷锟饺ｏ拷锟斤拷锟姐够锟斤拷锟斤拷锟斤拷锟斤拷MySQL锟斤拷Internet锟斤拷使锟斤拷锟斤拷惴猴拷锟斤拷锟斤拷菘锟较低持伙拷锟� 锟斤拷锟斤拷篇锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷使锟矫碉拷MySQL锟芥本锟斤拷3.23.36锟斤拷锟斤拷锟节碉拷锟饺讹拷锟斤拷锟叫版本锟斤拷3.23.46锟斤拷锟斤拷锟斤拷锟饺达拷锟斤拷4.0锟斤拷锟斤拷锟节诧拷锟斤拷之锟叫★拷锟斤拷锟角匡拷锟皆达拷锟斤拷锟斤拷锟斤拷锟截碉拷锟斤拷锟角碉拷源锟斤拷锟斤拷锟斤拷锟侥硷拷锟斤拷
为锟剿斤拷MySQL锟斤拷Perl锟斤拷锟绞癸拷茫锟斤拷慊癸拷锟揭╋拷锟斤拷锟�: Perl DBI模锟介。锟斤拷锟斤拷锟斤拷应锟斤拷锟斤拷锟斤拷DBI, Msql-Mysql-modules, Data-Dumper锟斤拷Data-ShowTable锟饺★拷
锟斤拷锟侥诧拷锟斤拷锟斤拷锟斤拷锟角的帮拷装锟斤拷锟教ｏ拷锟斤拷为锟角很简单ｏ拷同时锟斤拷锟叫碉拷说锟斤拷锟侥硷拷锟窖撅拷锟结供锟斤拷锟斤拷锟斤拷要知锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟捷★拷
Perl全锟斤拷锟斤拷实锟斤拷摘录锟诫报锟斤拷锟斤拷锟斤拷(Practical Extraction and Report Language)锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷募锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟秸�...锟斤拷锟斤拷锟杰匡拷锟斤拷锟侥癸拷锟杰撅拷锟斤拷锟斤拷锟斤拷展锟斤拷锟姐几锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟轿猴拷锟轿猴拷锟斤拷锟介：系统锟斤拷锟斤拷锟斤拷CGI锟脚憋拷锟斤拷锟斤拷锟皆硷拷锟斤拷锟捷匡拷涌诔锟斤拷锟�
Perl锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷(锟斤拷锟斤拷锟斤拷艹锟斤拷锟饺拷锟斤拷幕锟�)Unix锟斤拷锟叫版本锟叫ｏ拷锟斤拷锟斤拷锟斤拷锟斤拷些锟斤拷锟斤拷训模锟斤拷锟叫╋拷锟斤拷恰锟斤拷锟斤拷锟叫达拷锟绞憋拷锟斤拷榷锟斤拷陌姹撅拷锟�5.6.1锟斤拷锟芥本5.7.2锟节诧拷锟斤拷锟叫★拷锟斤拷锟侥诧拷锟矫碉拷锟斤拷5.005_03,锟杰诧拷锟斤拷锟斤拷一锟斤拷锟芥本锟斤拷锟斤拷锟斤拷锟较点。锟斤拷锟斤拷锟侥伙拷锟接伙拷没锟斤拷装Perl,锟斤拷锟斤拷源锟�http://www.perl.com/锟斤拷锟截★拷Perl锟结供锟斤拷锟斤拷锟斤拷模锟介，锟斤拷锟斤拷锟角硷拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷魏锟斤拷拢锟斤拷锟斤拷锟皆达拷锟斤拷锟斤拷锟秸撅拷锟紺PAN锟斤拷目锟揭碉拷锟斤拷锟角★拷
锟斤拷锟揭伙拷悖拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟绞硷拷锟斤拷锟斤拷锟斤拷慊癸拷锟揭伙拷锟絯eb锟斤拷锟斤拷锟斤拷锟斤拷Apache应锟斤拷锟斤拷一锟斤拷锟斤拷锟斤拷锟斤拷选锟斤拷锟斤拷锟斤拷锟斤拷锟节讹拷锟斤拷Unix系统锟叫★拷锟斤拷锟斤拷慊姑伙拷校锟斤拷锟斤拷缘锟�http://www.apache.org/锟斤拷锟截★拷

使锟矫的凤拷锟斤拷

锟斤拷也锟斤拷锟窖撅拷注锟解到LinuxFocus锟斤拷志锟叫讹拷锟斤拷锟斤拷锟皆的版本锟斤拷锟斤拷锟斤拷锟轿讹拷锟斤拷锟轿拷嗉拷锟揭憋拷锟斤拷锟� 锟斤拷锟斤拷锟斤拷锟皆硷拷锟斤拷锟斤拷锟斤拷锟侥版本锟斤拷一锟斤拷锟斤拷锟斤拷拢锟斤拷锟斤拷强锟斤拷钥锟斤拷锟斤拷锟皆�200篇锟斤拷锟铰ｏ拷平锟斤拷每篇锟斤拷锟斤拷锟斤拷5锟斤拷锟斤拷锟皆的版本锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟剿达拷约1000篇锟斤拷锟铰诧拷锟揭伙拷锟节硷拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷些锟斤拷锟斤拷锟斤拷要锟斤拷锟芥档锟斤拷锟斤拷式锟斤拷准锟斤拷锟斤拷锟杰结及摘要.....应锟斤拷锟斤拷么锟斤拷锟斤拷些锟铰ｏ拷锟斤拷然锟斤拷锟斤拷Perl!
锟斤拷锟角碉拷锟杰憋拷Guido Socher锟斤拷写锟斤拷锟斤拷锟斤拷perl锟斤拷锟斤拷使锟斤拷锟角的癸拷锟斤拷锟斤拷募锟斤拷锟斤拷锟斤拷啵拷锟叫达拷锟揭伙拷锟斤拷锟斤拷锟酵凤拷锟� Perl锟教程猴拷一锟斤拷锟斤拷锟斤拷Perl锟斤拷锟介。锟斤拷锟秸憋拷锟斤拷末尾锟侥参匡拷锟斤拷锟阶诧拷锟街★拷
Javi,锟斤拷锟角碉拷锟斤拷锟斤拷锟斤拷锟洁辑锟斤拷锟斤拷Perl锟斤拷写锟斤拷一锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷取锟�
Atif锟斤拷锟斤拷锟角碉拷锟斤拷锟斤拷锟斤拷锟竭ｏ拷锟斤拷锟斤拷锟斤拷perl锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷母锟斤拷锟斤拷锟絇erl锟斤拷锟斤拷同时也撰写锟斤拷锟斤拷MySQL锟斤拷锟斤拷锟斤拷锟铰ｏ拷锟斤拷锟斤拷锟斤拷一锟斤拷WEB锟斤拷锟斤拷锟斤拷锟竭改斤拷锟斤拷锟斤拷锟斤拷同锟斤拷锟斤拷锟斤拷锟斤拷诓慰锟斤拷锟斤拷撞锟斤拷锟斤拷业锟斤拷锟斤拷锟�
锟斤拷之锟斤拷锟斤拷锟斤拷锟斤拷锟窖帮拷锟揭伙拷锟絇erl锟斤拷锟界，锟斤拷锟斤拷LinuxFocus锟斤拷
锟斤拷锟斤拷LinuxFocus锟斤拷锟侥帮拷谋嗉伙拷锟斤拷腋锟斤拷锟斤拷锟斤拷锟斤拷谴锟斤拷锟斤拷锟斤拷约锟斤拷锟絃inuxFocus锟斤拷锟捷库，锟铰诧拷锟斤拷什么: MySQL 锟斤拷Perl!

锟斤拷锟斤拷锟斤拷锟捷匡拷

锟斤拷锟斤拷锟斤拷应锟斤拷锟窖撅拷锟斤拷确锟斤拷装锟斤拷MySQL锟斤拷锟斤拷锟斤拷锟矫猴拷锟矫伙拷锟斤拷锟诫。锟斤拷锟节帮拷装锟斤拷锟斤拷锟角憋拷锟斤拷锟斤拷锟桔碉拷锟斤拷锟捷ｏ拷MySQL锟皆达拷锟斤拷锟斤拷锟斤拷锟侥碉拷锟窖撅拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷细锟节★拷
锟斤拷mysql.server锟斤拷锟斤拷MySQL锟斤拷锟斤拷锟斤拷,锟斤拷锟斤拷锟斤拷锟酵憋拷锟斤拷锟� safe_mysqld 锟截伙拷锟斤拷锟教ｏ拷锟斤拷锟斤拷锟斤拷锟皆革拷锟斤拷锟斤拷锟轿★拷
锟斤拷

mysql -h host -u user -p

锟斤拷锟接碉拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟阶帮拷锟斤拷惚撅拷锟斤拷希锟斤拷筒锟斤拷眉硬锟斤拷锟�-h host锟斤拷
锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷憬拷锟斤拷拥锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷诳锟斤拷越锟斤拷锟斤拷约锟斤拷锟斤拷锟斤拷菘锟斤拷恕锟�
锟斤拷mysql锟斤拷锟斤拷锟斤拷示锟斤拷状态锟斤拷锟斤拷锟斤拷

CREATE DATABASE lf;

锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷堑锟绞撅拷锟斤拷锟斤拷菘锟�(lf锟斤拷锟斤拷LinuxFocus)锟斤拷锟斤拷锟斤拷愿锟斤拷锟斤拷锟斤拷锟斤拷要锟斤拷锟斤拷锟缴憋拷摹锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷歉锟斤拷没锟斤拷锟饺拷耍锟斤拷锟饺伙拷锟斤拷锟斤拷锟揭拷锟斤拷愎伙拷锟饺拷蓿锟斤拷锟斤拷锟揭� 锟斤拷锟斤拷administrator权锟睫碉拷锟矫伙拷锟斤拷锟接ｏ拷锟斤拷锟斤拷锟斤拷锟揭拷锟侥筹拷锟斤拷没锟斤拷锟斤拷锟斤拷锟斤拷菘猓拷锟�

GRANT ALL ON lf.* TO username;

锟斤拷锟斤拷锟斤拷权锟斤拷锟斤拷锟斤拷

USE lf

选锟斤拷詹糯锟斤拷锟斤拷锟斤拷锟斤拷菘猓拷锟斤拷锟斤拷锟揭伙拷疟锟斤拷锟� 锟斤拷锟斤拷锟斤拷锟斤拷锟角达拷锟斤拷锟侥憋拷锟斤拷trissue,锟斤拷锟斤拷锟绞轿拷锟�

CREATE TABLE trissue (num INTEGER UNSIGNED, category VARCHAR(25), title VARCHAR(40), author VARCHAR(20), en VARCHAR(20), es VARCHAR(20), fr VARCHAR(20),de VARCHAR(20), nl VARCHAR(20), ru VARCHAR(20), tk VARCHAR(20), issue VARCHAR(20));

通锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟皆硷拷锟揭伙拷锟斤拷锟斤拷歉詹糯锟斤拷锟斤拷谋锟斤拷锟斤拷锟斤拷欠锟斤拷锟饺�

USE lf
SHOW TABLES;
DESCRIBE trissue;

锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷要锟节憋拷锟斤拷锟斤拷锟斤拷锟斤拷锟捷ｏ拷锟斤拷一锟脚空憋拷锟叫碉拷锟斤拷锟斤拷锟捷碉拷锟斤拷虻サ姆锟斤拷锟斤拷锟斤拷锟绞癸拷锟揭伙拷锟� 锟斤拷TAB锟街革拷锟斤拷锟斤拷锟侥憋拷锟侥硷拷锟斤拷锟斤拷锟斤拷谋锟斤拷募锟斤拷丫锟阶硷拷锟斤拷茫锟斤拷锟斤拷锟�

LOAD DATA LOCAL INFILE "maindb.txt" INTO TABLE trissue;

锟斤拷锟斤拷锟斤拷锟侥憋拷锟侥硷拷没锟斤拷锟斤拷锟解，锟斤拷么锟斤拷锟斤拷锟斤拷锟脚憋拷锟斤拷锟窖撅拷锟斤拷锟斤拷锟斤拷荩锟斤拷锟斤拷锟斤拷通锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟揭伙拷拢锟�

SELECT * FROM trissue;

锟解将锟斤拷锟斤拷锟斤拷示一锟斤拷锟杰筹拷锟斤拷锟叫憋拷锟斤拷锟斤拷锟节ｏ拷锟斤拷涂锟斤拷越锟斤拷胁锟窖拷锟斤拷锟斤拷锟轿猴拷锟斤拷锟酵碉拷锟斤拷锟斤拷锟剿★拷
ok,锟斤拷锟斤拷锟斤拷为止锟斤拷锟斤拷锟角斤拷锟斤拷锟斤拷锟斤拷MySQL锟斤拷锟酵匡拷锟斤拷锟斤拷锟轿猴拷锟斤拷锟介，锟斤拷么锟斤拷锟斤拷Perl锟斤拷锟斤拷什么锟斤拷

Perl锟侥癸拷锟斤拷

Perl锟斤拷锟皆帮拷锟斤拷锟斤拷锟斤拷锟皆讹拷锟斤拷锟叫诧拷询锟斤拷锟斤拷锟斤拷锟斤拷锟绞撅拷锟揭伙拷锟絎EB锟斤拷锟斤拷锟斤拷希锟斤拷鹊取锟斤拷馗锟揭伙拷椋� 锟斤拷锟斤拷锟斤拷要为Perl锟斤拷装锟斤拷确锟斤拷模锟斤拷使之锟斤拷锟斤拷MYSQL锟斤拷锟较癸拷锟斤拷锟斤拷
锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷Perl锟斤拷写一锟斤拷CGI锟脚憋拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟角斤拷Perl锟斤拷HTML锟斤拷锟斤拷锟斤拷锟斤拷锟绞碉拷植锟窖拷锟斤拷菘锟� 锟斤拷锟斤拷锟斤拷锟斤拷锟绞斤拷锟斤拷锟斤拷锟斤拷
锟斤拷锟斤拷锟斤拷一锟斤拷锟津单的脚憋拷锟斤拷锟斤拷询某一锟斤拷锟竭碉拷锟斤拷锟斤拷锟斤拷锟铰ｏ拷锟斤拷示锟斤拷锟铰的憋拷牛锟斤拷锟斤拷啵� 锟斤拷锟解，锟斤拷同锟斤拷锟皆版本锟侥凤拷锟斤拷锟竭碉拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟铰碉拷锟斤拷志锟节号★拷
锟斤拷锟斤拷越锟斤拷锟斤拷锟脚憋拷锟斤拷锟斤拷一锟斤拷模锟斤拷使锟矫ｏ拷锟斤拷锟斤拷注锟斤拷锟斤拷锟斤拷锟斤拷滩锟斤拷锟斤拷锟揭伙拷锟� 锟角筹拷锟缴匡拷锟侥筹拷锟斤拷锟斤拷锟斤拷源锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟截碉拷一锟斤拷锟斤拷锟斤拷细注锟酵的版本锟斤拷=>here<=.

#!/usr/bin/perl -Tw
# First, we say this is a "Tainted" Perl script.
#
# This is a comment
# db consult
#
# We use the Perl DBI module
use DBI;

# As cgi :
use CGI qw(param());

print <<END_of_start;

Content-type: text/html

<html>
<title>LFAuthors main db</title>

<center><TABLE>
<TR VALIGN=TOP>
<TD><form action="/cgi-bin/lf.cgi" method="get">

# Here comes the button's title for the launching page
<input type="submit" value=" LFAuth ">
</form>
</TD>
</TR>
</TABLE>

锟斤拷锟斤拷锟矫脚憋拷去锟斤拷询锟斤拷锟捷库。

<center><H2>Search by author</H2></center>

<form action=\"/cgi-bin/lf.cgi\" method=\"get\">Author name : <input
type=\"text\" size=\"30\" name=\"author\"><input type=\"submit\"
value=\"Search...\"></form></center>

END_of_start

if (param("author") ne '') {
$author = param("author");

$autsrch.='"';
$autsrch.=$author;
$autsrch.='"';

# We connect to the database named lf as user doe

$dbh = DBI->connect("DBI:mysql:lf","doe",'');

$sth = $dbh->prepare("
select *
from trissue
where
author = $autsrch
");

$sth->execute;

锟斤拷锟斤拷锟矫脚憋拷去锟斤拷示锟斤拷询锟斤拷锟斤拷锟� 锟斤拷锟斤拷锟斤拷遣锟斤拷锟斤拷撇锟窖拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟绞撅拷锟斤拷锟斤拷菘锟斤拷锟斤拷锟斤拷锟斤拷锟捷ｏ拷锟斤拷锟斤拷锟斤拷锟斤拷峁┮伙拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷示锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟截碉拷锟斤拷锟斤拷锟斤拷锟铰★拷锟斤拷锟斤拷锟斤拷锟斤拷菘锟斤拷锟斤拷锟角э拷锟斤拷锟铰际憋拷锟斤拷锟斤拷萍锟斤拷锟绞撅拷锟斤拷锟斤拷锟斤拷锟斤拷荩锟�

print <<END_suite;

<center>
<TABLE BORDER=>
<tr bgcolor=#A1C4EE>
<th width=60 align=CENTER><font color=#000000> Num </font></th>
<th width=110 align=CENTER><font color=#000000> Category </font></th>
<th width=110 align=CENTER><font color=#000000> Title </font></th>
<th width=110 align=CENTER><font color=#000000> Author </font></th>
<th width=110 align=CENTER><font color=#000000> En </font></th>
<th width=110 align=CENTER><font color=#000000> Es </font></th>
<th width=110 align=CENTER><font color=#000000> Fr </font></th>
<th width=110 align=CENTER><font color=#000000> De </font></th>
<th width=110 align=CENTER><font color=#000000> Nl </font></th>
<th width=110 align=CENTER><font color=#000000> Ru </font></th>
<th width=110 align=CENTER><font color=#000000> Tk </font></th>
<th width=110 align=CENTER><font color=#000000> Issue </font></th>
</tr>

END_suite

while( ($num,$category,$title,$author,$en,$es,$fr,$de,$nl,$ru,$tk,$issue) =$sth->fetchrow() ) {
print "<tr>";
print "<td width=60 bgcolor=#FFFFE8 align=center> $num</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $category</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $title</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $author</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $en</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $es</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $fr</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $de</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $nl</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $ru</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $tk</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $issue</td>";
print "</tr>";

}
print "</TABLE>";
print "<BR>";
print "<BR>";
print "<br>";

} else {

# DB Connect

$dbh = DBI->connect("DBI:mysql:lf","doe",'');

# Search

$sth = $dbh->prepare("
select *
from trissue
");

$sth->execute;

# Display result

print <<SUITE;

<center>
<TABLE BORDER=>
<tr bgcolor=#A1C4EE>
<th width=60 align=CENTER><font color=#000000> Num </font></th>
<th width=110 align=CENTER><font color=#000000> Category </font></th>
<th width=110 align=CENTER><font color=#000000> Title </font></th>
<th width=110 align=CENTER><font color=#000000> Author </font></th>
<th width=110 align=CENTER><font color=#000000> En </font></th>
<th width=110 align=CENTER><font color=#000000> Es </font></th>
<th width=110 align=CENTER><font color=#000000> Fr </font></th>
<th width=110 align=CENTER><font color=#000000> De </font></th>
<th width=110 align=CENTER><font color=#000000> Nl </font></th>
<th width=110 align=CENTER><font color=#000000> Ru </font></th>
<th width=110 align=CENTER><font color=#000000> Tk </font></th>
<th width=110 align=CENTER><font color=#000000> Issue </font></th>
</tr>

SUITE

while( ($num,$category,$title,$author,$en,$es,$fr,$de,$nl,$ru,$tk,$issue) =$sth->fetchrow() ) {
print "<tr>";
print "<td width=60 bgcolor=#FFFFE8 align=center> $num</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $category</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $title</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $author</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $en</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $es</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $fr</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $de</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $nl</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $ru</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $tk</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $issue</td>";
print "</tr>";

}
print "</TABLE>";
print "<BR>";

}
print end_html;
$sth->finish;

# Disconnect

$dbh->disconnect;

exit;

锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟绞撅拷牟锟窖拷锟斤拷锟斤拷

锟斤拷全锟斤拷锟斤拷

锟斤拷锟斤拷锟斤拷锟轿拷锟斤拷锟斤拷站锟斤拷锟斤拷锟斤拷锟捷匡拷支锟街ｏ拷锟斤拷锟斤拷然要锟斤拷锟角帮拷全锟皆碉拷锟斤拷锟解。锟斤拷锟斤拷锟斤拷锟角诧拷锟斤拷锟结供一锟斤拷锟斤拷锟斤拷去锟斤拷锟斤拷锟酵帮拷慕锟斤拷WEB锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟捷匡拷锟斤拷锟斤拷锟斤拷锟饺拷锟斤拷猓伙拷锟斤拷锟揭恍╋拷锟斤拷锟斤拷锟皆拷锟斤拷锟斤拷锟揭� 注锟斤拷摹锟�
锟津单碉拷说锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷WEB锟斤拷锟斤拷锟斤拷锟斤拷锟结供锟斤拷锟斤拷锟斤拷锟斤拷时锟斤拷锟斤拷锟斤拷锟斤拷要锟斤拷锟角碉拷锟斤拷WEB锟斤拷锟斤拷锟斤拷锟侥帮拷全锟皆★拷锟斤拷锟诫本锟侥碉拷锟斤拷锟斤拷锟睫关ｏ拷锟叫很讹拷锟侥碉拷锟斤拷锟斤拷锟斤拷锟解方锟斤拷锟斤拷锟捷★拷一锟斤拷锟饺较好碉拷去锟斤拷锟斤拷 the Linux Documentation Project.
锟斤拷锟斤拷锟斤拷锟斤拷一锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷菘锟斤拷锟斤拷锟斤拷锟叫关★拷锟节帮拷装一些锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷MySQL,锟斤拷要锟斤拷锟斤拷锟侥讹拷锟斤拷锟斤拷锟街诧拷锟斤拷锟斤拷锟节帮拷全锟皆的诧拷锟街★拷锟斤拷锟截革拷一锟铰癸拷锟斤拷锟矫伙拷锟斤拷锟斤拷幕锟斤拷锟皆拷颍翰锟揭拷锟斤拷魏锟斤拷屎锟矫伙拷锟斤拷锟斤拷耄拷乇锟斤拷锟斤拷锟斤拷菘锟� 锟斤拷root锟绞号ｏ拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷root锟绞猴拷锟角诧拷同锟侥ｏ拷锟斤拷锟斤拷一锟斤拷要锟斤拷锟斤拷权锟睫碉拷锟斤拷锟矫ｏ拷锟斤拷锟斤拷要锟斤拷锟斤拷锟斤拷锟绞号讹拷锟斤拷锟斤拷锟斤拷全锟斤拷锟狡碉拷权锟睫★拷锟斤拷锟斤拷锟斤拷锟皆的猴拷锟秸遍，锟斤拷锟斤拷锟斤拷锟酵拷锟斤拷锟斤拷锟斤拷锟斤拷锟揭伙拷恪�
锟斤拷锟解，锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷chroot锟斤拷锟捷库。锟斤拷锟斤拷钥锟斤拷锟斤拷锟揭伙拷锟斤拷锟�Mark锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷一锟斤拷锟斤拷锟捷库但锟斤拷些锟斤拷锟捷匡拷应锟矫碉拷MySQL锟叫★拷
锟斤拷一锟斤拷锟斤拷全锟斤拷施锟芥及锟斤拷锟斤拷锟捷的达拷锟酵癸拷锟教★拷锟斤拷一锟斤拷锟杰碉拷锟斤拷tunnel锟斤拷锟斤拷锟斤拷蘸头锟斤拷锟斤拷锟斤拷锟斤拷歉锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷狻ｏ拷慰锟�Through the tunnel锟斤拷
锟斤拷锟斤拷锟斤拷锟斤拷锟揭拷锟揭伙拷悖拷锟叫达拷锟饺拷某锟斤拷锟� Perl锟斤拷一锟斤拷伟锟斤拷锟斤拷锟斤拷裕锟斤拷锟斤拷诒锟叫达拷锟斤拷锟侥癸拷锟斤拷锟叫撅拷锟斤拷锟斤拷锟阶筹拷锟斤拷锟斤拷锟斤拷锟斤拷一篇LinuxFocus锟斤拷锟铰斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟� 锟截憋拷锟斤拷锟斤拷Perl锟斤拷时锟斤拷锟斤拷锟斤拷锟斤拷篇锟斤拷锟斤拷. 锟斤拷锟斤拷"锟斤拷写锟斤拷全锟侥筹拷锟斤拷"系锟叫碉拷锟斤拷锟揭黄拷锟斤拷拢锟阶拷锟教革拷锟斤拷锟斤拷泄锟紺GI锟脚憋拷锟斤拷锟斤拷锟解。锟斤拷锟截讹拷锟斤拷锟斤拷
锟斤拷然,锟斤拷锟斤拷锟斤拷锟饺假讹拷锟斤拷锟斤拷锟斤拷一些锟斤拷施之前锟斤拷锟窖撅拷拥锟斤拷一锟斤拷锟杰硷拷痰锟较低筹拷锟矫伙拷锟斤拷锟叫╋拷锟斤拷锟斤拷锟铰╋拷锟斤拷锟斤拷丫锟斤拷锟阶帮拷锟斤拷锟斤拷碌锟� 锟斤拷锟斤拷锟斤拷锟皆硷拷锟斤拷锟斤拷一些锟截憋拷锟侥帮拷全锟斤拷锟竭ｏ拷锟斤拷锟斤拷NIDS(Network Intrusion Detection System)锟斤拷snort(from http://www.snort.org/), 锟斤拷锟斤拷墙,锟剿匡拷锟诫安全扫锟借工锟斤拷(nmap, nessus)锟饺等★拷
锟斤拷锟斤拷憔拷锟斤拷锟斤拷芄锟斤拷锟斤拷埽锟斤拷锟斤拷锟斤拷锟节憋拷锟揭惶拷锟斤拷锟斤拷锟较帮拷装锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷一锟斤拷锟斤拷锟斤拷锟斤拷WEB锟斤拷锟斤拷锟斤拷锟斤拷一锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟捷匡拷锟斤拷锟斤拷锟�...锟皆硷拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟� 锟皆达拷锟斤拷锟斤拷酶呖煽锟斤拷浴锟� 锟斤拷锟芥：为锟斤拷证锟斤拷全锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷远锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟皆讹拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷陌锟饺拷锟斤拷锟街伙拷锟斤拷锟酵既ワ拷锟斤拷锟轿ｏ拷眨锟矫匡拷锟斤拷锟斤拷嵌锟斤拷锟矫革拷锟斤拷危锟秸★拷

锟斤拷锟斤拷

锟斤拷为"There Is More Than One Way to Do It",锟斤拷锟斤拷锟窖★拷锟斤拷锟侥凤拷式锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷RDBMS锟斤拷锟皆硷拷锟斤拷锟斤拷锟斤拷锟斤拷之锟斤拷氐锟斤拷锟斤拷浴锟叫达拷锟狡拷锟斤拷锟斤拷锟轿拷锟秸故綧ySQL锟斤拷Perl锟斤拷锟斤拷纬锟缴拷暮锟斤拷锟斤拷锟�
锟斤拷然锟斤拷锟斤拷锟斤拷选锟斤拷锟斤拷锟斤拷锟斤拷缘锟斤拷锟斤拷锟斤拷裕锟斤拷锟较诧拷锟組ySQL锟斤拷锟斤拷为锟斤拷小锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷系统锟斤拷锟斤拷锟叫ｏ拷锟劫度快，锟缴匡拷...锟斤拷也锟角筹拷锟斤拷锟斤拷MySQL锟斤拷墓锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷诙锟斤拷投锟斤拷锟竭★拷锟斤拷锟斤拷为锟斤拷锟酵碉拷锟角ｏ拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟截革拷锟皆的癸拷锟斤拷(锟节达拷之前锟窖撅拷锟斤拷锟斤拷业锟斤拷锟斤拷锟侥斤拷锟斤拷锟斤拷锟�)锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟侥革拷锟接简单★拷
锟斤拷锟斤拷Perl,要说锟侥讹拷说锟剿★拷锟斤拷要锟斤拷锟斤拷一些锟斤拷锟斤拷锟斤拷锟斤拷没锟斤拷锟斤拷锟斤拷锟斤拷锟睫凤拷锟斤拷锟斤拷锟侥ｏ拷锟斤拷锟斤拷锟斤拷锟斤拷一锟斤拷锟斤拷锟杰伙拷锟斤拷一锟斤拷锟斤拷锟斤拷员锟斤拷锟斤拷锟斤拷锟斤拷墓锟斤拷锟斤拷锟� Perl锟斤拷锟斤拷(the perl community)锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷源锟斤拷锟斤拷锟斤拷之一锟斤拷锟斤拷一锟斤拷锟斤拷锟斤拷Perl Journal锟斤拷锟斤拷志锟斤拷锟斤拷锟斤拷锟斤拷SysAdmin锟斤拷志锟斤拷一锟斤拷锟街ｏ拷每锟斤拷锟斤拷篇锟斤拷锟铰ｏ拷锟斤拷锟斤拷缘锟�http://www.samag.com/锟斤拷锟侥★拷
一些锟斤拷锟解话: LinuxFocus锟侥讹拷锟斤拷锟斤拷也锟斤拷没锟斤拷注锟解到锟诫本锟斤拷志锟斤拷氐锟揭恍╋拷耍锟饺伙拷锟斤拷锟斤拷锟饺达拷锟斤拷钥锟斤拷锟絃inuxFocus锟斤拷志锟斤拷锟斤拷锟斤拷锟皆的版本锟斤拷锟斤拷没锟斤拷注锟解到一些小锟斤拷锟斤拷锟斤拷锟斤拷也锟斤拷只锟斤拷一锟斤拷锟斤拷锟剿ｏ拷却锟斤拷锟斤拷舜锟斤拷锟斤拷墓锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟秸疚拷锟斤拷撸锟� 锟斤拷锟竭ｏ拷锟饺等★拷锟斤拷锟斤拷锟斤拷锟斤拷锟介，锟斤拷锟斤拷锟斤拷锟斤拷锟介，锟斤拷岱拷侄锟斤拷锟斤拷锟斤拷露锟斤拷锟斤拷锟終irill锟斤拷Erdal锟斤拷锟诫。锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锛讹拷锟酵拷锟斤拷锟剿ｏ拷锟斤拷些锟剿革拷锟剿讹拷么锟剿诧拷锟斤拷墓锟斤拷锟斤拷锟斤拷锟揭拷锟斤拷锟斤拷潜锟绞咀ｏ拷兀锟斤拷锟叫伙拷锟轿�! 锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷应锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷谢锟斤拷
锟斤拷歉锟斤拷些锟斤拷锟斤拷锟侥碉拷锟斤拷锟斤拷锟睫关ｏ拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷些锟斤拷值锟斤拷一锟斤拷摹锟�
锟截碉拷锟斤拷锟铰碉拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷一锟轿癸拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟侥★拷应锟斤拷锟斤拷谢锟斤拷些锟斤拷锟斤拷锟斤拷MySQL锟斤拷 Perl锟斤拷锟剿ｏ拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟结供锟斤拷锟斤拷锟斤拷伟锟斤拷墓锟斤拷撸锟斤拷锟斤拷叶锟斤拷锟斤拷锟斤拷锟窖的★拷锟斤拷些锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷业锟斤拷品锟斤拷锟揭诧拷锟斤拷锟窖飞拷锟斤拷锟斤拷锟斤拷锟杰憋拷锟斤拷锟角筹拷色锟侥伙拷锟斤拷锟斤拷锟斤拷锟角撅拷锟斤拷锟斤拷锟铰ｏ拷锟斤拷锟斤拷锟斤拷细锟斤拷锟侥碉拷锟斤拷锟斤拷锟斤拷锟� 锟斤拷锟斤拷锟斤拷锟斤拷锟节硷拷锟斤拷锟斤拷锟斤拷Unix系统锟叫★拷锟斤拷锟斤拷锟揭碉拷同锟斤拷锟斤拷色锟侥憋拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷氩伙拷埽锟�
锟斤拷篇锟斤拷锟铰匡拷锟斤拷没锟叫斤拷锟斤拷锟斤拷俣锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷使锟斤拷锟斤拷锟斤拷斜锟揭拷锟斤拷锟斤拷锟叫╋拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷玫摹锟�
锟斤拷锟角诧拷锟斤拷锟斤拷锟斤拷锟斤拷一锟斤拷伟锟斤拷锟绞憋拷锟斤拷锟�

锟轿匡拷

Perl.org
cpan.org, Perl锟侥碉拷锟斤拷锟斤拷

Guido锟斤拷Perl锟教程ｏ拷

Perl I
Perl II
Perl III

专业Perl锟斤拷锟斤拷锟斤拷锟�

Perl Programming

Atif锟斤拷MySQL锟斤拷锟斤拷锟斤拷锟斤拷

LinuxFocus锟斤拷志锟斤拷MySQL锟斤拷锟斤拷: 锟斤拷锟斤拷锟铰ｏ拷锟斤拷锟斤拷锟斤拷一锟斤拷

MySQL

LinuxFocus锟较碉拷一篇锟斤拷锟较碉拷SQL锟教筹拷

SQL Part I
SQL Part II

锟斤拷锟斤拷篇锟斤拷锟铰凤拷锟斤拷锟斤拷锟斤拷

每篇锟斤拷锟铰讹拷锟叫革拷锟皆的凤拷锟斤拷页锟芥。锟斤拷锟斤拷锟揭筹拷锟斤拷铮拷锟斤拷锟斤拷锟斤拷峤伙拷锟斤拷郏锟揭诧拷锟斤拷圆榭达拷锟斤拷锟斤拷锟斤拷叩锟斤拷锟斤拷郏锟�

锟斤拷锟斤拷页锟斤拷

锟斤拷锟斤拷锟斤拷息:

en --> -- : Georges Tarbouriech <georges.t(at)linuxfocus.org>

en --> zh: yey <yeyxx(at)263.net>

2002-01-14, generated by lfparser version 2.23