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

A quick question. Is there a way to get the keys of the %s hash to be printed in a comma-delimited list?

For example:

>05143_African_trypanosomiasis
3
TRINITY_DN26760_c1_g1, 18169, 42987
>05145_Toxoplasmosis
5
43736, 38319, 38320, TRINITY_DN24151_c3_g1, TRINITY_DN25493_c0_g1
[download]

best,

James

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

Replies are listed 'Best First'.
Re^3: Getting unique line counts between lines starting with '>' by NetWallah (Canon) on Oct 20, 2017 at 02:53 UTC
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.	[reply] [d/l] [select]
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]