Perl: one line

转化某个UNIX时间为 date 显示格式
perl -e "print scalar localtime(1281602155)";

查找某个module的位置
find `perl -le 'print for grep {$_ ne q{.}and -d} @INC'` -name "Config*"

查找某个module的位置
perl -MCPAN -le 'print $INC{"Config.pm"}'
/vendor/perl-5.10/lib/5.10.0/x86_64-linux-thread-multi/Config.pm

替换文件中某一内容,原文件备份为 .bak结尾
   DOS to Unix text convert
perl -i bak -pe 's/\r//g' file
I strongly recommend previewing without the -i option before making permanent changes!