- or download this
#name complete(cs) len(cs) simple(ss) len(ss) pos(cs)
NAME1 A0AAA000AAA00A 14 AAAAAAAA 8 4,6
NAME2 AAAA0AA00000A 13 AAAAAAA 7 7
- or download this
$ perl -anle '
print "$_ position(cs)" and next if /^#/;
printf "%s",$_;
...
printf "%14s\n", join ",",@res;
@res=();
' file
- or download this
NAME1 A0AAA000AAA00A 14 AAAAAAAA 8 4,9 3,5
NAME2 AAAA0AA00000A 13 AAAAAAA 7 7 6