Perl-Perl模块3

1. Path::Class模块

虽然File::Spec模块能很好地处理不同系统上的文件名规则，但操作界面偏底层，不够高阶。而perl自带的Path::Class模块则提供了更为友好的操作界面

my $dir = dir(qw(Users fred lib));
my $subdir = $dir->subdir('perl5'); # Users/fred/lib/perl5
my $parent = $dir->parent; # Users/fred

my $windir = $dir->as_foreign('Win32'); # Users\fred\lib

2. 数据库和DBI模块

DBI（Database Interface，数据库接口）模块并内置于perl标准发行版本中。DBI的美妙之处在于，不管哪种常见的数据库，都可以用相同的接口对其进行操作
安装完DBI之后，还必须安装DBD（Database Driver，数据库驱动程序）
DBI是面向对象模块
想连接数据库的话，得用use加载DBI模块并调用它的connect方法

use DBI;

$dbh = DBI->connect($data_source, $username, $passwd);

变量$data_source指定了要连接的数据库信息以及使用哪一种DBD作底层交互
连接上数据库之后就可以进行预备查询、执行查询以及读取查询结果等一系列操作

my $data_source = "dpi:Pg:dbname=name_of_u";
my $sth = $dbh->prepare("SELECT * FROM foo WHERE bla");
$sth->execute();
my @row_ary = $sth->fetchrow_array;
$sth->finish;
$dbh->disconnect();

3. 处理日期和时间的模块

现在最受欢迎的是Time::Moment模块
最常见的需求是把系统中以秒数表示的当前时间（或者epoch纪元时间）转换成Time::Moment对象

my $dt = Time::Moment->from_epoch(time);

my $dt = Time::Moment->now;

printf '%4d%02d%02d', $dt->year, $dt->month, $dt->day_of_month;

2个Time::Moment对象之间还可以相互计算

my $dt1 = Time::Moment->new(
	year => 1987,
	month => 12,
	day => 18,
);

my $dt2 = Time::Moment_>now;

my $years = $dt1->delta_years($dt2);
my $months = $dt1->delta_months($dt2) % 12;

printf "%d years and %d months\n", $years, $months;