摘要SQL语言在标准数据库以外的应用
问题你想对一个非关系型数据库结构进行复杂的SQL查询。
解决使用CPAN上的DBD::SQLite模块
useDBI;$dbh=DBI-%26gt;connect("dbi:SQLite:dbname=/Users/gnat/salaries.sqlt","","",{RaiseError=%26gt;1,AutoCommit=%26gt;1});$dbh-%26gt;do("UPDATEsalariesSETsalary=2*salaryWHEREname='Nat'");$sth=$dbh-%26gt;prepare("SELECTid,deductionsFROMsalariesWHEREname='Nat'");#...讨论
SQLite模块定义的“数据库”是存在于单个文件中的，把单个文件仿真为一个数据库。在用DBI连接时，dbname参数指定为该文件名。不像大多数的关系型数据库，在DBD::SQLite定义的数据库不是服务器/客户短架构，没有服务器，它直接与文件交换数据。多个进程可以同时从一个文件中读取数据（此时用SELECTs命令），但是只有一个进程能向文件中写数据（当一个进程写数据的时候其它的进程被挂起）。SQLite支持事务功能，也就是，你可以向多个表做出一系列改动，但是只要你不向SQLite提交这些改动，更新就不会写到文件中。useDBI;$dbh=DBI-%26gt;connect("dbi:SQLite:dbname=/Users/gnat/salaries.sqlt","","",{RaiseError=%26gt;1,AutoCommit=%26gt;0});eval{$dbh-%26gt;do("INSERTINTOpeopleVALUES(29,'Nat',1973)");$dbh-%26gt;do("INSERTINTOpeopleVALUES(30,'William',1999)");$dbh-%26gt;do("INSERTINTOfather_ofVALUES(29,30)");$dbh-%26gt;commit();};if($@){eval{$dbh-%26gt;rollback()};die"Couldn'trollbacktransaction"if$@;}SQLite定义的数据库里面没有数据类型这个概念。不管你在创建一个表的时候指定的是什么数据类型，以后你可以在其中放入任何类型的数值（包括字符型，数字型，日期型，二进制对象/blob）。实际上，创建表的时候你甚至可以不指定数据类型。CREATETABLEpeople(id,name,birth_year);SQLite只有在要比较数据的时候，如用WHERE子句或对某些值进行排序，才会考虑数据类型。SQLite在比较数据的时候，只考虑被比较对象的类型，而不管被比较对象所在列的其它数据是什么类型。像Perl一样，SQLite只能识别字符型和数字型。两个数值总是以浮点类型进行比较，两个字符串直接比较。当不同类型的数据比较的时候，数字总是比字符小。只有一种情况SQLite才会关心你为某一列申明的数据类型（需要创建一个值自增加的列的时候）。你可以把这列的类型指定为“INTEGERPRIMARYKEY”。
CREATETABLEpeople(idINTEGERPRIMARYKEY,name,birth_year);例子14-6说明这一切是怎么工作的
例14-6整形主键#!/usr/bin/perl-w#ipk-demonstrateintegerprimarykeysuseDBI;usestrict;my$dbh=DBI-%26gt;connect("dbi:SQLite:ipk.dat","","",{RaiseError=%26gt;1,AutoCommit=%26gt;1});#quietlydropthetableifitalreadyexistedeval{local$dbh-%26gt;{PrintError}=0;$dbh-%26gt;do("DROPTABLEnames");};#(re)createit$dbh-%26gt;do("CREATETABLEnames(idINTEGERPRIMARYKEY,name)");#insertvaluesforeachmy$person(qw(NatTomGuidoLarryDamianJon)){$dbh-%26gt;do("INSERTINTOnamesVALUES(NULL,'$person')");}#removeamiddlevalue$dbh-%26gt;do("DELETEFROMnamesWHEREname='Guido'");#addanewvalue$dbh-%26gt;do("INSERTINTOnamesVALUES(NULL,'Dan')");#displaycontentsofthetablemy$all=$dbh-%26gt;selectall_arrayref("SELECTid,nameFROMnames");foreachmy$row(@$all){my($id,$word)=@$row;print"$wordhasid$id\n";}SQLite支持8位长的字符编码，但是不识别ASCII中的NULL符“\0”。唯一的变通方法就是在你存储数据之前自行编码，然后在取出数据之后再手工解码，就象URL编码或Base64编码方式一样。这甚至可以用在BLOB字段里面。
参照“ExecutinganSQLCommandUsingDBI”CPAN上DBD::SQLite模块的正式文档。它在SQLite的主页上http://www.hwaci.com/sw/sqlite
摘要发送邮件的时候添加附件
问题你想要发一封包含附件的邮件，比如包含一份PDF格式的文档
解决用CPAN上的MIME::Lite模块。
首先，创建包含邮件各种头信息的MIME::Lite对象useMIME::Lite;$msg=MIME::Lite-%26gt;new(From=%26gt;'sender@example.com',To=%26gt;'recipient@example.com',Subject=%26gt;'Myphotoforthebrochure',Type=%26gt;'multipart/mixed');然后用attach方法添加附件内容
$msg-%26gt;attach(Type=%26gt;'image/jpeg',Path=%26gt;'/Users/gnat/Photoshopped/nat.jpg',Filename=%26gt;'gnat-face.jpg');
$msg-%26gt;attach(Type=%26gt;'TEXT',
Data=%26gt;'Ihopeyoucanusethis!');最后，发送这份邮件，发送它的方法是可选的
$msg-%26gt;send();#默认的方法是用sendmail规则发送#指定其它的方法$msg-%26gt;send('smtp','mailserver.example.com');
讨论
MIME::Lite模块创建并发送带MIME指定类型附件的邮件。MIME是MultimediaInternetMailExtensions的缩写，而且也是在邮件中附带各种文件文档的标准方式。但是，这个规则并不能从邮件信息中把附件提取出来。假如你想从邮件信息中提取MIME指定类型附件，可以参考这篇文章“ExtractingAttachmentsfromMail”
当你创建MIME::Lite对象，以及向创建的对象中添加内容的时候。后面的参数采用“参数名=%26gt;值”的有名对形式。有名对的参数名部分应该暗示它代表的邮件头（如，From，To，Subject）以及其它其它MIME::Lite所特有的东西。假如参数名是邮件头，后面应该加上冒号，如$msg=MIME::Lite-%26gt;new('X-Song-Playing:'=%26gt;'NatchezTrace');然而，当参数名代表的邮件头在表18-2中时，后面可以不加冒号。下表中*代表通配符，例如Content-*可以代表Content-Type和Content-ID但是不代表Dis-Content
表18-2:MIME::Lite头
ApprovedEncryptedReceivedSenderBccFromReferencesSubjectCcKeywordsReply-ToToCommentsMessage-IDResent-X-Content-*MIME-VersionReturn-PathDateOrganizationMIME::Lite参数类型的完整列表在表18-3中
表18-3:MIME::Lite参数类型
DataFHReadNowDatestampFilenameTopDispositionIdTypeEncodingLengthFilenamePathMIME::Lite模块的参数类型决定附件的类型和附件的添加方法
Path指定作为附件的文件的路径Filename指定接受方保存附件时，附件的默认文件名。假如指定了Path参数，那么默认的文件名就是路径中的名字Data指定附件添加的日期Type指定待添加附件的文件编码类型Disposition它的值只能是inline和attachment。前者指定接受方打开邮件的时候附件内容会跟在邮件正文后显示，而不单独作为一个附加物。后者指定接受方应该指定一个附件的解码方法，并且保存附件，此时会有提示FH指定一个读取附件的开放的文件句柄这儿有几个有用的附件编码类型TEXT代表text/plain，为Type的默认值；BINARY是application/octet-stream的缩写；multipart/mixed表明邮件有附件；application/msword表明附件为微软的Word文档；application/vnd.ms-excel表明附件为微软的Excel文档；application/pdf表明附件为PDF文档；image/gif，image/jpeg，image/png分别指定GIF，JPEG，PNG文件；audio/mpeg指定MP3格式文件；video/mpeg指定MPEG格式影片；video/quicktime指定Quicktime格式文件。
发送邮件的唯一两种方法是sendmail和Net::SMTP。调用send方法时，若第一个参数为“smtp”，则用Net::SMTP发送邮件。send的其它参数都传给Net::SMTP。#timeoutof30seconds$msg-%26gt;send("smtp","mail.example.com",Timeout=%26gt;30);假如你想创建多个MIME::Lite对象，也就是发送多附件，你可以把send作为类方法调用，此时默认发送方法会被替换。MIME::Lite-%26gt;send("smtp","mail.example.com");$msg=MIME::Lite-%26gt;new(opts);#...$msg-%26gt;send();#sendsusingSMTP假如你要处理多个消息，用好ReadNow参数。它指定附件应该立即从文件或文件句柄中读取发送，而不是在发送前转化为字符串。
发送邮件不是MIME::Lite能做的唯一事情。你还可以用它把最后的邮件内容变成字符串
$text=$msg-%26gt;as_string;print方法可以把消息的字符串形式写入一个文件句柄自定的文件中
$msg-%26gt;print($SOME_FILEHANDLE);例子18-3是一个发送邮件的程序，它把在命令行输入的文件名作为附件例18-3:发送带附件的邮件
#!/usr/bin/perl-w#mail-attachment-sendfilesasattachmentsuseMIME::Lite;useGetopt::Std;my$SMTP_SERVER='smtp.example.com';#可根据自己情况改变my$DEFAULT_SENDER='sender@example.com';#同上my$DEFAULT_RECIPIENT='recipient@example.com';#同上MIME::Lite-%26gt;send('smtp',$SMTP_SERVER,Timeout=%26gt;60);my(o,$msg);#processoptionsgetopts('hf:t:s:',\o);$o{f}||=$DEFAULT_SENDER;$o{t}||=$DEFAULT_RECIPIENT;$o{s}||='Yourbinaryfile,sir';if($o{h}or!@ARGV){die"usage:\n\t$0[-h][-ffrom][-tto][-ssubject]file...\n";}#constructandsendemail$msg=newMIME::Lite(From=%26gt;$o{f},To=%26gt;$o{t},Subject=%26gt;$o{s},Data=%26gt;"Hi",Type=%26gt;"multipart/mixed",);while(@ARGV){$msg-%26gt;attach('Type'=%26gt;'application/octet-stream','Encoding'=%26gt;'base64','Path'=%26gt;shift@ARGV);}$msg-%26gt;send();