Parsing Text

DanBCastro · Oct 25, 2012

Hi,

I'm learning Perl and I have a challenge to do in Bioinformatics.

I have a CSV file with a lot of columns and rows... but I need to sum cells of certain column:

Samples Name Value1 Value2 Value3.....
A Name 1 32 27 21
B Name 2 23 12 13
C Name 3 10 98 59
D Name 4 21 78 72
E Name 5 32 72 27
... ... ... ... ...

So I need Sum of cells in column Value 1, Sum of cells in column Value2 and so on.

I know this is basic and I'm studying as hard as I can.

Could anyone help me?

Thanks

feherke · Oct 26, 2012

Hi

Code:

perl -nae '[b]if[/b][teal]([/teal]$[teal].==[/teal][purple]1[/purple][teal])[/teal][teal]{[/teal][navy]@h[/navy][teal]=[/teal][navy]@F[/navy][teal];[/teal][b]next[/b][teal]}[/teal][navy]$s[/navy][teal][[/teal][navy]$i[/navy][teal]]+=[/teal][navy]$v[/navy] [b]while[/b][teal]([/teal][navy]$i[/navy][teal],[/teal][navy]$v[/navy][teal])=[/teal][b]each[/b][navy]@F[/navy][teal];[/teal]END[teal]{[/teal][b]print[/b][green][i]"$h[$_] : $s[$_]\n"[/i][/green][b]for[/b] [purple]2[/purple][teal]..[/teal][navy]$#h[/navy][teal]}[/teal]' /input/file

Feherke.
[link feherke.github.com/]

http://feherke.github.com/

[/url]

Jurafsky · Oct 28, 2012

Is it perl 6?

feherke · Oct 28, 2012

Hi

Jurafsky said:
Is it perl 6?

perl --version said:
This is perl 5, version 14, subversion 1 (v5.14.1) built for i686-linux-thread-multi

Feherke.
[link feherke.github.com/]

http://feherke.github.com/

[/url]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Parsing Text

DanBCastro

Programmer

feherke

Programmer

Jurafsky

Programmer

feherke

Programmer

Similar threads

Part and Inventory Search

Sponsor