# 用于fasta格式文件的碱基数目和GC含量的统计
grep -v '>' input.fa| perl -ne '{$count_A=$count_A+($_=~tr/A//);$count_T=$count_T+($_=~tr/T//);$count_G=$count_G+($_=~tr/G//);$count_C=$count_C+($_=~tr/C//);$count_N=$count_N+($_=~tr/N//)};END{print qq{total count is },$count_A+$count_T+$count_G+$count_C+$count_N, qq{ GC%:},($count_G+$count_C)/($count_A+$count_T+$count_G+$count_C+$cont_N),qq{ } }'
# 用于fastq格式文件的read数、碱基数、最长的read、最短的read及平均read长度
perl -ne 'BEGIN{$min=1e10;$max=0;}next if ($.%4);chomp;$read_count++;$cur_length=length($_);$total_length+=$cur_length;$min=$min>$cur_length?$cur_length:$min;$max=$max<$cur_length?$cur_length:$max;END{print qq{Totally $read_count reads Totally $total_length bases MAX length is $max bp MIN length is $min bp Mean length is },$total_length/$read_count,qq{ bp }}' input.fq
# 用于fasta格式文件的read数、碱基数、最长的read、最短的read及平均read长度
perl -ne 'BEGIN{$min=1e10;$max=0;}next if ($.%2);chomp;$read_count++;$cur_length=length($_);$total_length+=$cur_length;$min=$min>$cur_length?$cur_length:$min;$max=$max<$cur_length?$cur_length:$max;END{print qq{Totally $read_count reads Totally $total_length bases MAX length is $max bp MIN length is $min bp Mean length is },$total_length/$read_count,qq{ bp }}' input.fa