Re^2: Need to find a more efficient way to write if/elsif in loop

Ok I tried your code, how come it only wrote 5 elements instead of 10 elements from the file? I do not understand what the "$_+2" means. Thanks! Below is the code I am testing with:

$AZ_len = 10;
&update_google ($az_state, $AZ_len);


sub update_google {
    my($infile, $col_length) = @_;
    #Open files to read from
    open GOOG, "<", $infile or die $!; 
    $count = 6;
    while (<GOOG>) {
        @test1 = split(/ /);
        my @aoh = map {
            {row => $count, col => $_+2, input_value => $test1[$_]} }
        0 .. 4;
        $googlesheet->batchupdate_cell(@aoh);    
    $count++;    
    }
    close(GOOG);
}

# $infile looks like this 
0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 2 5 0 0 0
0 0 0 0 0 4 6 0 0 0
0 0 0 0 0 5 4 0 0 0
0 0 0 0 0 0 0 0 0 0

#Google spreadsheet only prints this
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0 
0 0 0 0 0
[download]

Comment on Re^2: Need to find a more efficient way to write if/elsif in loop Download Code

Replies are listed 'Best First'.
Re^3: Need to find a more efficient way to write if/elsif in loop by toolic (Bishop) on Sep 05, 2014 at 16:51 UTC
To make it more general, use `my @aoh = map { {row => $count, col => $_+2, input_value => $test1[$_]} } 0 .. ($col_length-1);` [download] UPDATE: changed code due to error identified by AnomalousMonk++	[reply] [d/l]
Re^4: Need to find a more efficient way to write if/elsif in loop by AnomalousMonk (Archbishop) on Sep 05, 2014 at 17:36 UTC
`0 .. $col_length;` Should maybe be `0 .. $col_length-1;` based on OPed code.	[reply] [d/l] [select]
Re^3: Need to find a more efficient way to write if/elsif in loop by AllPaoTeam (Sexton) on Sep 05, 2014 at 16:51 UTC
Duh.... I figured it out.... Thanks for the help once again guys! I didn't see the code below, my eyes just flew passed it: `0 .. 4;` [download]	[reply] [d/l]