in reply to print dropping a line?

I tried that under v5.8.0 Linux and it appeared to work fine. So the question is, what version of perl are you running? and what's your test data, the internal format.

also use strict; use warnings; they are your friends

You can also write that whole foreach loop much simpler something like this

foreach my $test (keys %Tests) {
    print "Test is $test\n";
    # This should print them all sorted
    print join("\n", sort @{$Tests{$test}});

    # For checking the data, shouldn't be needed in production
    #print "Num before sort:", $#{$Tests{$test}} + 1, "\n";
    #print join("\n", @{$Tests{$test}});

    #@{$Tests{$test} = sort @{$Tests{$test}};
    #print "Num after sort:", $#{$Tests{$test}} + 1, "\n";
    #print join("\n", @{$Tests{$test}});
}

[download]

Update: I used the same initial value for %Tests as edoc does below. (forgot to mention that)

Replies are listed 'Best First'.
Re: Re: print dropping a line?
by edoc (Chaplain) on Jun 02, 2003 at 01:59 UTC

    I'll second that. (Perl 5.8 on Linux)

    I used:

    my %Tests = (
        Development => [ '"Drayton, xxx",,3 Years and 7 Months,,,,,,',
                 '"Areen, xxx",,3 Years and 9 Months,,,,,,',
                 '"Lyles, xxx",,4 Years and 0 Months,,,,,,',
                 '"Coleman, xxx",,3 Years and 9 Months,,,,,,',
               ],
       );

and it printed:

Test and students are
 Development:
4
"Drayton, xxx",,3 Years and 7 Months,,,,,,
"Areen, xxx",,3 Years and 9 Months,,,,,,
"Lyles, xxx",,4 Years and 0 Months,,,,,,
"Coleman, xxx",,3 Years and 9 Months,,,,,,
4
"Areen, xxx",,3 Years and 9 Months,,,,,,
"Coleman, xxx",,3 Years and 9 Months,,,,,,
"Drayton, xxx",,3 Years and 7 Months,,,,,,
"Lyles, xxx",,4 Years and 0 Months,,,,,,,,,,,,,,,
,,,,,,,,,

    [download]

    cheers,

    J

[reply]
[d/l]

In Section Seekers of Perl Wisdom