Re^2: How to store the output from foreach loop into variable/array without printing?

[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

[hellohello1]

Great! Thanks! I am gonna look through it. I'll come back again if I have doubts to clarify :) Will post my code up once I manage to understand how to go from there

[hellohello1]

Ok. I have read through some of the links you have given and already arrange my code properly. I'm gonna post the code here (in simplified terms) and show you what I have been doing and I suspect which line I am getting it wrong

Here is part of my code (its the same as the one I post earlier but I change it to make it looks simpler to understand:

      
    
    $variable1 = '';
    print OUT1 "$first[0]\t$first[1]\t$first[2]\t";
    for my $index1 (3..8)
    {
      my $ratio1 = sprintf( "%.4f%s", $numerator/$denominator,"\t");
      #print OUT1 "$ratio1";
      $variable1 = "$ratio1"; # problem with this line  
    } 
   
    print OUT1 "$variable1";  # print to textfile
    print OUT1 "\n";

I am trying to print out the output after it run finish the for loop 6 times (3 to 8). The data should arrange something like this:

Desired output (e.g.):

           A98  0.98  123  4  4  4  4  4   4
           A09  0.87  154  2  6  5  8  3   1
           A12  0.12  873  6  1  2  4  7   0

Instead, it print out only the last column:

            A98  0.98  123  4
            A09  0.87  154  1
            A12  0.12  873  0

so I change to this line by adding the "." to join the 6 columns together

            $variable1 .= "$ratio1"; # problem with this line

and I get weird output like this:

      
            A98  0.98  123  4  4  4  4  4  4
            A98  0.98  123  4  4  4  4  4  4  2  6  
            A98  0.98  123  4  4  4  4  4  4  2  6  4 
            A98  0.98  123  4  4  4  4  4  4  2  6  4  6 
            A98  0.98  123  4  4  4  4  4  4  2  6  4  6  1 ...

I know its got to do with the placement of the $variable1 .= "$ratio1"; ...but I have simply no idea how to go on and correct from there.

The reason for attempting to capture the values from the for loop is because I want to calculate my average and CV. This variable will then put into hashes with the first three columns and go thru filter to filter out based on certain conditions.

[hazylife]

Instead, it print out only the last column:

so I change to this line by adding the "." to join the 6 columns together and I get weird output like this:

You're not actually using the index variable ($index1). And you also need to properly re-initialize $variable1.

Would this do what you want?

my @ratio = map { sprintf '%.4f', $numerator[$_]/$denominator[$_] } 3.
+.8;
my $variable1 = join "\t", @ratio;

[Anonymous Monk]

I know its got to do with the placement of the $variable1 .= "$ratio1"; ...but I have simply no idea how to go on and correct from there.

Sounds like you're not Coping with Scoping (tutorial and diagnosis)

If you can post more than a a fragment, something I can run (like your current short self contained program), I can explain what is going on