Help for this page

Select Code to Download


  1. or download this
    sub sortByDate
{
...

    return ($aDate cmp $bDate);
}
  2. or download this
     
    my($aDate) = $a =~ /date\"(\d{4}-\d{2}-\d{2})"/;
    my($bDate) = $b =~ /date\"(\d{4}-\d{2}-\d{2})"/;
  3. or download this
    use strict;
use warnings;
...
{ "date":"2015-01-02", "content":"erts" }

{ "date":"2014-04-02", "content":"w34r" }
  4. or download this
    Unsorted:
[
...
  { content => "asdf", date => "2015-03-01" },
  { content => "erwa", date => "2015-05-01" },
]