perl库及函数

use strict;
use warnings;
use Encode;
use DBI; #关系型数据库
use MIME::Base64; #base64编解码
use MIME::QuotedPrint;  #可打印字符编码
use Encode;
use Cache::Memcached;  #memcache缓存库
use Getopt::Long;

=========================DBI============================
对于关系型数据库perl提供了DBI;  
1： 数据库链接：
         mysql：my $conn = DBI->connect("DBI:mysql:database=test:host=127.0.0.1","root","passwd",{'RaiseError' => 1});
         oracle：my $dbh = DBI->connect('test', 'root', 'passwd', 'oracle');   if(!$dbh){   print $DBI::errstr;  } #打印错误码
2：数据库操作：
         my $rows = $conn->do("delete from emptable where status != 'active'"); #如果多次查询，系统会对其一遍遍做语法分析

一般insert update delete等操作用$conn->do()即可

否则select时候要用prepare和execute结合 因为do只运行命令不返回结果，select要得到结果必须用prepare.

         my $sth = $dbh->prepare('insert into emptable (id, name) values (?, ?)'); #该方式可以减轻上述分析负载，“？”表示查询的位置。
              while(defined($line == <>)){  #prepare参数化查询
                         chomp($line);  #去掉行末回车
                         ($id, $name) = split(/\t/, $line); #假设数据间用制表符分开
                         $sth->execute($id, $name); #insert into mysql
                         die $DBI::errstr if DBI::err;
             }
         select查询：下面这段例子演示了如何使用数据库操作中最常用的查询。
         my $cur = $dbh->prepare('select name from emptable where id < 100');
               $cur->execute();  #查询
               die $DBI::errstr if DBI::err;
               while(($name) = $cur->fetchrow){
                         print "name: $name";  #循环打印查询结果
                }
         $cur->finish();

        $conn->quote($sender); //特殊字符转换 防止被黑的
         3：断开连接：$dbh->disconnect();  
         4：查询元数据：
               $DBI::rows   #作用或返回的行数
               $sth->{NUM_FIELDS} #由select语句返回的字段数
               $sth->{NUM_PARAMS}  #由任意查询返回的参数个数
               执行完select语句可以得到以下元数据信息：
               $sth->{NAME} #由查询所返回的列名称
               $sth->{NULLABLE} #表示字段是否可以为空的布尔值
               $sth->{TYPE} #字段类型
               $sth->{PRECISION}  #字段的浮点数精度
               $sth->{SCALE} #字段长度
=========================Memcache============================
memcache操作：
memcached：my $memd = new Cache::Memcached{   'servers' => ['127.0.0.1:11211']       };
my $sys_sec = $memd->get("name”);  #取数据、
$memd->delete($opt{username});  #删数据
============================Base64============================
base64解码：
my $var = decode_base64($1)；
my $var = encode_base64($1)；
==========================MIME::QuotedPrint======================
可见字符编码：
my $var = decode_qp($1)
my $var = encode_qp($1)
ENCODING=QUOTED-PRINTABLE:=E5=90=B4=E4=B8=9C=E6=96=B0 可还原为汉字
============================Encode============================
utf8编码转换：
my $var = encode("gbk", $var)
my $var = decode("gbk", $var)

$octets = encode("iso-8859-1", $string);把一个串从perl内部格式转为iso-8859-1格式
$string = decode("iso-8859-1", $octets);转换ISO-8859-1数据为perl内部格式串

my $octets = encode(ENCODING, $string [, CHECK])
$string：　　Perl字符串
encoding：　是给定的编码方式
$octets:　　是编码之后的字节流
check: 　　　表示转换时如何处理畸变字符（也就是Perl认不出来的字符）。一般不需使用
eg：
$dat="测试文本";
my $str=decode("utf8",$dat);
@chars=split //,$str;
foreach $char (@chars) {
print encode("utf8",$char),"\n";
}
============================Encode============================
编码类型：uft8和utf-8不一样
汉字                  gb2312
perl内部编码   utf8

error: wide character in print at ./test.pl line 10
有perl不认识的编码，perl一般认识utf8和ascii编码
打开utf8-flag编码：Encode::_utf8_on($str);
eg:
use Encode;
use strict;
my $str = "测试文本";
Encode::_utf8_on($str);
print $str. "\n";
Encode::_utf8_off($str);
print $str. "\n";
或者：在程序文件的头部加上以下内容
use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');