Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: sorting a file by a date:"YYYY-MM-DD" field with cmp

by ikegami (Patriarch)
on Jun 16, 2015 at 17:45 UTC ( #1130653=note: print w/replies, xml ) Need Help??

in reply to sorting a file by a date:"YYYY-MM-DD" field with cmp

In scalar context, the match operator and thus the bind operator returns whether a match was found or not. You want to evaluate the match in list context to get it to return the list of matches.


my ($aDate) = $a =~ /\bdate:\s*"(\d{4}-\d{2}-\d{2})"/; my ($bDate) = $b =~ /\bdate:\s*"(\d{4}-\d{2}-\d{2})"/;


  • Added \b to avoid catching enddate.
  • Added \s* in case the JSON encoder decides to start adding whitespace.
  • Removed some superfluous backslashes.

Note: Will break if you get

  • { date:"\u0032015-05-01", content:"erwa" }
  • { foo:{date:"2014-05-01"}, date:"2015-05-01", content:"erwa" }
  • etc

For a reliable but slower solution, you can use

use JSON::XS qw( decode_json ); my @sorted = map { substr($_, 10) } sort map { decode_json($_)->{date} . $_ } @events;

As for the blank lines, just remove them first using

@events = grep /\S/, @events;

Update: Added to my answer.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2022-01-21 18:43 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (59 votes). Check out past polls.