Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

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

by dirtdog (Beadle)
on Oct 03, 2010 at 19:32 UTC ( #863199=note: print w/ replies, xml ) Need Help??


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

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
Re^9: Need help comparing 4 dates (Fixed.)
by BrowserUk (Pope) 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>;

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

    #! perl -slw

    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;

    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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://863199]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2014-09-21 20:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (176 votes), past polls