Re^7: Sorting by value??

A couple of comments:

You added strict at the top, but did not add variable declarations (my). Therefore, it seems unlikely you tried to run your code before posting it. This is poor form as it shows a lack of effort on your part.
You require my before @sorted = ... and $frmType = ... to fix the above.

You did not fix the issue I pointed out in item 3 above -- your print statements are located inappropriately for your desired output. If you fix that, you don't need your second filtering stage. Each of your foreach loops should look something like:

            foreach(@sorted)
            {
            my $frmType = substr $_, 1, 4;
            
            if ($frmType eq "Q569")
                {
                print OUT "$_";
                $count ++;
                }
            }
            print OUT "There were $count Quarterly 569 runs\n";
[download]

where I have attempted to follow your existant style.

Comment on Re^7: Sorting by value?? Select or Download Code

Replies are listed 'Best First'.
Re^8: Sorting by value?? by Homerhrdz (Initiate) on Jun 17, 2010 at 19:24 UTC
Well its not lack of effort Its the Reason that I am new at it like Random guessing game new. Honestly i do not know what im doing sometimes, and just my luck sometimes it works the way i want it to	[reply]