Perl 单行中文版

主要内容

• Perl命令行参数
• 01 文件行距
• 04 行计数
• 03 数值计算
• 04 字符和数组生成
• 05 文本转化和替换
• 06 有选择的打印或者删除行
• 07 正则表达式

日积月累

1、 转php的序列化格式到json: echo 'O:8:"stdClass":4:{s:7:"has_alt";b:0;s:8:"has_ctrl";b:1;s:9:"has_shift";b:0;s:8:"key_code";i:192;}'|perl -lpe 's#.*{#{#;s#s:\d+:"([^"]+)";[bi]:([^;]+);#\1 \2;#g;'

结果:

{
 has_alt 0;
 has_ctrl 1;
 has_shift 0;key_code 192;
}

2、perl oneline统计源码行数，去除行式注释： lib目录下 pm文件行数

perl  -lne  '$a++  unless /^#/ and /\/\// and  /=/; END{print $a} ' `find lib/ -type f  -name "*.pm"` 

3、基因序列去重

读入基因id的建立一个散列，然后从genome.fasta找散列中存在的基因如果存在就打印出来并存储

perl -ne 'if(/^>(\S+)/){$c=$i{$1}}$c?print:chomp;$i{$1}=1 if @ARGV' ids.file genome.fasta > ids.fasta ids.file

来源

• https://github.com/bollwarm/perlonelinecn
• http://ijz.me/?tag=perl-one-liners
• http://www.catonmat.net/download/perl1line.txt
• http://www.catonmat.net/blog/perl-book/
• http://www.perl.com/pub/a/2004/08/09/commandline.html