Re^2: Finding the sum of individual columns

I have tried like this.

open FH,"<data_input" or die "Can't open file : $!\n";
my @line;
while ( <FH> )
{
    if ( /(obj[1-9]*)/ )
    {
        my $line = $'; #for getting other than obj column in the line
        my $val=0;
        $val += split(' ',$line);
        print $val;
    }
}
[download]

But I can't get the sum in the $val variable. Can you please help me

Comment on Re^2: Finding the sum of individual columns Download Code

Replies are listed 'Best First'.
Re^3: Finding the sum of individual columns by Corion (Patriarch) on Apr 13, 2010 at 09:13 UTC
split returns a list. Adding a list to a scalar does not really make sense in this context. Maybe you want a loop? `my @items = qw(1 2 3 4 5 6); my $val = 10; $val += $_ for @items;` [download]	[reply] [d/l]
Re^4: Finding the sum of individual columns by jwkrahn (Abbot) on Apr 13, 2010 at 15:14 UTC
split returns a list. In list context but in scalar context it returns the number of fields in the list and puts the list into `@_` and issues a warning.	[reply] [d/l]
Re^4: Finding the sum of individual columns by thillai_selvan (Initiate) on Apr 13, 2010 at 09:22 UTC
Yeah. It works great. Thanks!!!	[reply]