2015年7月3日
用 perl 统计 fasta 文件序列的总长
摘要： ```#!/usr/bin/perl -wuse strict;die "Usage: $0 \n" unless (@ARGV == 1);my $lines = 0;my $bases = 0;while (my $line = ){ # operator reads one line at ... 阅读全文
posted @ 2015-07-03 19:50 liuhui_pine 阅读(540) 评论(0) 推荐(0)
awk 匹配不是 pattern 的内容
摘要： ```awk '/pattern/ {next} {print $0}' filename``` 阅读全文
posted @ 2015-07-03 18:47 liuhui_pine 阅读(185) 评论(0) 推荐(0)