first commit

perl/perlonelinecn-master/README.md

@@ -0,0 +1,46 @@
+# Perl 单行中文版 
+
+## 主要内容
+
+- [Perl命令行参数](Perl命令行参数.md)
+- [01 文件行距](01文件行距.md)
+- [04 行计数](02行计数.md)
+- [03 数值计算](03数值计算.md)
+- [04 字符和数组生成](04字符和数组生成.md)
+- [05 文本转化和替换](05文本转化和替换.md)
+- [06 有选择的打印或者删除行](06有选择的打印或者删除行.md)
+- [07 正则表达式](07正则表达式.md)
+
+## 日积月累
+
+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>
+
+