How to store the output from foreach loop into variable/array without printing?

[hellohello1]

Hello! I have a question. I have a code: (OUT1 refers to textfile)

sub data
  {
    for $arr_ref1 (@full_data)
      {
      for $arr_ref2(@full_data)
            {                      
                for $index (3..$#$arr_ref2)
        {
                     
        $ratio = sprintf( "%.2f%s", $$arr_ref2[$index]/$$arr_ref1[$ind
+ex],"\t");
        print OUT1 "$ratio";
                    
        } 
                print OUT1 "\n"; #print D to E columns into next line 
+after one loop
            }
      
        }
  }

_DATA_ (A to G is just to indicate column location)
A    B    C    D    E    F    G
AX8    0.23    42.4    1    1    1    1
AX4    0.65    53.6    0.2    7.8    9.1    2.3
AX12    0.34    23.9    3.2    7.2    1.2    9.3

My problem here is the (print OUT1 "$ratio";) line onwards. Instead of printing the output into textfile, is it possible to print the output into an array or something so that I can carry on with the calculation of the output from there? I have tried something like this (push data into array) :

 for $index (3..$#$arr_ref2)
        {
                     
        $ratio = sprintf( "%.2f%s", $$arr_ref2[$index]/$$arr_ref1[$ind
+ex],"\t");
        #print OUT1 "$ratio";
                    
        } 
                print OUT1 "\n"; #print D to E columns into next line 
+after one loop
                push (@data1, $ratio1);
                print OUT1 ($data1);
            }

But am not getting the desired output. I just can't figure out how to get those output and store into variables/arrays instead of printing it out. My desired outcome is to put:

D and E (by rows) --> 1st array
F and G (by rows) --> 2nd array

so that I can calculate their average and standard deviation for both arrays and put into the next column beside G. Or is there other way to do it?

[kcott]

G'day hellohello1,

You've commented out the print statement inside the for loop but written the push statement outside (after) that loop.

You made much the same mistake which I pointed out in Re: Split and join a few days ago.

Use the strict and warnings pragmata, heed the messages they give, and fix your code accordingly. The first of those would have alerted to an issue with "push (@data1, $ratio1);".

If you indented your code to refect its logic, you probably could have seen what was wrong purely by inspection.

I also recommend you read and follow the earlier advice given by ++Anonymous Monk in Re: How to store the output from foreach loop into variable/array without printing?.

[hellohello1]

Hi Kcott, yes I did add the strict pragmata, which prompt me that error. Have been trying to figure out how to work out my code by trying array method, etc.

Pardon my limited knowledge, if I want to put push statement into the for loop, the $ratio1 will be added into the @data1 one by one until one loop is finished?

I did try putting in the for loop, but I still couldn't get the output. So I try trial and error and end up writing to you guys for help and wonder if there is a better way to do it.

Thanks :) I am looking into the earlier advice :)

[vinoth.ree]

Hi,

As per my understanding from your post, that you need data from __DATA__ area 3..4 and 5..6 in separate array of each row. I have saved data as another array ref, you can do deref and you can take data from each array.

There could be more efficient way, other than this.

use strict;
use warnings;
use Data::Dumper;

my @arr = <DATA>;
chomp @arr;
my (@Arry1,@Arry2);
foreach(@arr)
{
        my @arr1 = split(/\s+/,$_);
        push (@Arry1,[@arr1[3..4]]);
        push (@Arry2,[@arr1[5..6]]);
}

print Dumper \@Arry1;
print Dumper \@Arry2;

__DATA__
AX8     0.23    42.4    1       1       1       1
AX4     0.65    53.6    0.2     7.8     9.1     2.3
AX12    0.34    23.9    3.2     7.2     1.2     9.3

[hellohello1]

Thanks! I'll think through and work it out :)

[Anonymous Monk]

Or is there other way to do it?

There is a better way,

Read more... (798 Bytes)

Are you interested?

[hellohello1]

Hi, Yes! I am interested. :)

[Anonymous Monk]

Hi, Yes! I am interested. :)

Great, if you're willing, read Re: Perl MIME parser partially works with my code I wrote (code does not exist , there is no code)

Maybe also read some of the links it links ... maybe even these Tutorials: Variable Scoping in Perl: the basics,
Coping with Scoping , Mini-Tutorial: Perl's Memory Management,
Lexical scoping like a fox,

And then write one program that follows the the pattern ; try to make the changes I mentioned, and see how far you can get

Post the program, and we'll go from there

Might start like

Read more... (976 Bytes)

Each time you start work on a new subroutine start a new file, even if you're using (version control);; If you're not using version control, DIY, save frobnicator-00.pl frobnicator-01.pl frobnicator-02.pl as you try things out/make changes ... its amazing what you can learn when you revisit your attempts weeks/months/years later