47 lines
1.4 KiB
Markdown
47 lines
1.4 KiB
Markdown
# 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>
|
||
|
||
|