Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Perl Sort date and time inside csv file

by 2teez (Vicar)
on Feb 11, 2016 at 09:50 UTC ( #1154932=note: print w/replies, xml ) Need Help??


in reply to Perl Sort date and time inside csv file

Hi ukhare,
There is a number of things to point out in your code. Of course some of them are good practice while others are style and preference.
  1. You should also use warnings; in your codes
  2. As much as possible, try not to hard-core your file path in your program for portability issues. You might have to use the code some other places or some other time
  3. use open 3 arguments options. Instead of 2
  4. if you are using csv file, use Text::CSV or Text::CSV_XS module, instead of splitting or handpicking your data yourself.

Now, to your data, just like hdb said you weren't sorting. Something like so should give what you expected, though you didn't show us that.
use warnings; use strict; print sort grep $_ => <DATA>; __DATA__ 2016-02-02:00:44,mttsmshub1 2016-02-05:00:39,mttsmshub1 2016-02-03:00:32,tttsmshub1 2016-02-04:00:24,mttsmshub1

Assumed Output:

2016-02-02:00:44,mttsmshub1 2016-02-03:00:32,tttsmshub1 2016-02-04:00:24,mttsmshub1 2016-02-05:00:39,mttsmshub1
Hope this helps.

update:

In the solution I have provided earlier, there is no need for the function grep, the code would still have worked without it. Thanks AnomalousMonk for pointing that out. ++ for you!! There

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Replies are listed 'Best First'.
Re^2: Perl Sort date and time inside csv file
by AnomalousMonk (Bishop) on Feb 11, 2016 at 17:43 UTC
    print sort grep $_ => <DATA>;

    I don't get the purpose of the grep on  $_ in the quoted statement. Is it intended to remove the blank  __DATA__ lines? It doesn't, and it seems to me that those lines in the OP were just an artifact of failure to use  <code> tags in the first place. Can you please explain further?


    Give a man a fish:  <%-{-{-{-<

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2021-04-17 08:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?