最近要测试mysql日志分析工具，安装完成后遇到了perl脚本库不全问题，如下所示：
?
# mysqlsla
Can't locate Time/HiRes.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at /usr/local/bin/mysqlsla line 2092.
BEGIN failed--compilation aborted at /usr/local/bin/mysqlsla line 2092.
?
对于没有接触过perl的人来说，这个提示很难看懂，借助n年前的开发经验，这可能是引用的模块找不到引起的。
其实.pm文件是就是perl的“类库”文件，里面保存了模块化的代码。下面的代码可以解决这个问题。
?
#perl -MCPAN -e 'install Time::HiRes'
?
perl在5.0之后引入了模块化的概念，实现面向对象的编程。CPAN（Comprehensive Perl Archive Network）是internet上Perl模块最大的集散地，包含了现今公布的几乎所有的perl模块，通过上面的例子，可以获知利用这个格式，可以到CPAN上安装需要的模块。
?
安装前需要先联上线，并且您需要取得root权限。 ?
初次运行CPAN时需要做一些设置，如果您的机器是直接与internet相联（拨号上网、专线，etc.），那么一路回车就行了，只需要在最后选一个离您最近的CPAN镜像站点。例如我选的是位于国内的中国自由软件库ftp://freesoft.cgi.gov.cn/pub/languages/perl/CPAN? 。否则，如果您的机器位于防火墙之后，还需要设置ftp代理或http代理。
?
类似的还有：
# perl -MCPAN -e 'install Time::HiRes' # perl -MCPAN -e 'install File::Tail' # perl -MCPAN -e 'install Date::Parse' # perl -MCPAN -e 'install Net::Netmask'
