perl

这两天逛水木看到一个对这个问题很不错的解法 — 使用CPAN模块 local::lib 。该模块可以生成环境变量，让单个用户可以在自己家目录中安装需要的perl模块。

举例来看，比如我的模块都在~/local/lib/perl5下。就把下面命令加入.bashrc中

eval $(perl -Mlocal::lib=~/local/lib/perl5)

重新登录之后，cpan就会把默认安装目录放到~/local/lib/perl5下了。

编写程序时，在程序中的头部加入“use local::lib qw(_{/local/lib/perl5)“就可以将}/local/lib/perl5加入模块的搜索路径了。

package YourModule; 
# gives you Exporter's import() method directly
use Exporter 'import'; 
@EXPORT_OK = qw(munge frobnicate);
@EXPORT = qw(sth);

EXPORT_OK 中声明的函数需要在use YourModule后加入qw//来申请进入全局。而EXPORT 中声明的函数是默认就进入全局的。

通过perl来给log里带有特殊单词的行加上颜色，带颜色的log更易于识别和阅读。

#!/usr/bin/env perl
while(<STDIN>) {
    s/($ARGV[0])/\033[1m\033[45m\1\033[0m/g if $ARGV[0];
    print "\033[1m\033[37m\033[41m" if /error/i;
    print "\033[1m\033[32m" if /info/i;
    print "\033[1m\033[32m" if /notice/i;
    print "\033[1m\033[36m" if /warn/i;
    print $_;
    print "\033[0m";
}