¿Cómo puedo ordenar las fechas en Perl?

Question

¿Cómo puedo ordenar las fechas en Perl?

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

Tengo más fechas en mi matriz. ¿Cómo puedo ordenar esas fechas?

Mi formato de fecha es dd/mm/YYYY.

Answer 1

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

o el uso de subrutina de clasificación por separado:

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

Actualización: Un enfoque más eficiente es el Schwartzian Transform:

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

Answer 2

prefiero el formato YYYY/MM/DD mejor, precisamente por esta razón. Está garantizado para ordenar las fechas correctamente, entre 1000/01/01 y 9999/12/31.

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

Si realmente lo necesita en DD/MM/YYYY formato, siempre se puede ir a 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

O utilice el formato época en la marca de tiempo y clasificarlos como números. A continuación, convierta las cadenas de fechas a la salida que desee. Entonces no está atascado con el formato de las cadenas de origen.

Answer 4

Mucha gente aquí argumentó correctamente que el formato original de las fechas debe ser en formato aaaa-mm-dd, pero nadie ha dado el código Perl que puede manejar ese caso todavía. Así que aquí está:

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