Come posso ordinare le date in Perl?

Question

Come posso ordinare le date in Perl?

my @dates = ("02/11/2009" , "20/12/2001" , "21/11/2010"); 

Ho sopra le date nel mio array. Come posso ordinare quelle date?

Il mio formato data è dd/mm/YYYY.

Answer 1

@dates = sort { join('', (split '/', $a)[2,1,0]) cmp join('', (split '/', $b)[2,1,0]) } @dates; 

o utilizzando subroutine di ordinamento separato:

sub mysort { 
    join('', (split '/', $a)[2,1,0]) cmp join('', (split '/', $b)[2,1,0]); 
} 
@dates = sort mysort @dates; 

Update: Un approccio più efficace è la Trasformata di Schwartz:

@dates = 
    map $_->[0], 
    sort { $a->[1] cmp $b->[1] } 
    map [ $_, join('', (split '/', $_)[2,1,0]) ], @dates; 

Answer 2

preferisco il formato YYYY/MM/DD meglio, proprio per questo motivo. È garantito per ordinare correttamente le date, tra 1000/01/01 e 9999/12/31.

my @sorted_alt = sort map { join '/', reverse split '/', $_ } @dates; 

Se si ha realmente bisogno in formato DD/MM/YYYY, si può sempre andare per una completa Schwartzian transform.

my @sorted = map { 
    join '/', reverse split '/', $_ 
} 
sort 
map { 
    join '/', reverse split '/', $_ 
} @dates; 

o

my @sorted = map { 
    join '/', reverse @$_ 
} 
sort { "@$a" cmp "@$b" } 
map { 
    [ reverse split '/', $_ ] 
} @dates; 

Answer 3

Oppure utilizzare il formato epoca in timestamp e ordinarli come numeri. Quindi converti le stringhe di data in output come desideri. Quindi non sei bloccato con la formattazione delle stringhe di origine.

Answer 4

Molte persone hanno argomentato correttamente che il formato originale delle date dovrebbe essere nel formato aaaa-mm-gg, ma nessuno ha dato il codice Perl che può ancora gestire il caso. Ecco quindi:

my @dates = (
    '2014-08-15', 
    '2016-09-13', 
    '2001-01-02', 
    '1998-09-22', 
    '1998-09-21', 
    '1998-09-23', 
    '1999-04-20', 
    '2020-01-30', 
); 

@dates = sort {$a cmp $b} @dates; # 1998 is the first date's year 
@dates = sort {$b cmp $a} @dates; # 2014 is the first date's year