Re^8: Need help comparing 4 dates (Fixed.)

in reply to Re^7: Need help comparing 4 dates (Fixed.)
in thread Need help comparing 4 dates

I do have an older version (5.54)..I'll install 5.56 and see if that fixes it.

The warning does repeat for multiple lines...a lot. I was going to capture them in a file and then grep the count, but only the output displayed below was captured in the file

Also, what is interesting is that the output contains a blank line between the header and result set even though there is no blank line after __DATA__

EVENT   JIM     BOB     SAM     JACK

PTRED   4       3       2       1
RED     3       1       2       4
INT     3       4       2       1
PTRED   2       1       4       3
RED     2       1       3       4
INT     4       3       1       2
[download]

Actually, nevermind about the blank line in the result set. I see that yours has it also. Must come from the "+1" in the print.

Comment on Re^8: Need help comparing 4 dates (Fixed.) Download Code

Replies are listed 'Best First'.
Re^9: Need help comparing 4 dates (Fixed.) by BrowserUk (Patriarch) on Oct 04, 2010 at 00:27 UTC
Actually, nevermind about the blank line in the result set. I see that yours has it also. Must come from the "+1" in the print. Erm, no. The header line, and the following blank line in the output, are printed by this line: `print scalar <DATA>;` [download] It has one newline because I didn't chomp it. And the second, because I have `-l` on the hashbang line: `#! perl -slw` [download] Which has the affect of automatically adding `"\n"` to the end of every print line. The `+1` in this line: `print join "\t", $label, map $_+1, sort{ $order[ $a ] <=> $order[ $b ] } 0 .. $#order;` [download] converts the numbers `0 .. 3` used to index the array while sorting. into the numbers `1 .. 4` used for your desired output. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. RIP an inspiration; A true Folk's Guy	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^9: Need help comparing 4 dates (Fixed.)
by BrowserUk (Patriarch) on Oct 04, 2010 at 00:27 UTC

Actually, nevermind about the blank line in the result set. I see that yours has it also. Must come from the "+1" in the print.

Erm, no. The header line, and the following blank line in the output, are printed by this line:

print scalar <DATA>;
[download]

It has one newline because I didn't chomp it. And the second, because I have -l on the hashbang line:

#! perl -slw
[download]

Which has the affect of automatically adding "\n" to the end of every print line.

The +1 in this line:

    print join "\t", $label, map $_+1, sort{
        $order[ $a ] <=> $order[ $b ]
    } 0 .. $#order;
[download]

converts the numbers 0 .. 3 used to index the array while sorting. into the numbers 1 .. 4 used for your desired output.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP an inspiration; A true Folk's Guy

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom