Re^3: Getting unique line counts between lines starting with '>'

Update: Corrected for Comma-separated numbers.

$ perl -lne 'sub prt{@c && print scalar @c,"\n",join ", ",@c;@c=();pri
+nt} />/?prt:push @c,$_}{prt'  TheFileName
[download]

output

>05143_African_trypanosomiasis
4
TRINITY_DN26760_c1_g1, 18169, 42987, 42987
>05145_Toxoplasmosis
7
43736, 38319, 38320, 38320, TRINITY_DN24151_c3_g1, TRINITY_DN25493_c0_
+g1
[download]

For info on "}{", see "Eskimo greeting" in perlsecret.

All power corrupts, but we need electricity.

Comment on Re^3: Getting unique line counts between lines starting with '>' Select or Download Code

Replies are listed 'Best First'.
Re^4: Getting unique line counts between lines starting with '>' by Anonymous Monk on Oct 20, 2017 at 04:45 UTC
Thank you NetWallah, that helps a lot. best, James	[reply]