मैं पर्ल में तिथियों को कैसे क्रमबद्ध कर सकता हूं?

Question

मैं पर्ल में तिथियों को कैसे क्रमबद्ध कर सकता हूं?

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

मेरे पास मेरी सरणी में तिथियां हैं। मैं उन तिथियों को कैसे क्रमबद्ध कर सकता हूं?

मेरा दिनांक प्रारूप dd/mm/YYYY है।

Answer 1

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

या अलग छंटाई सबरूटीन का उपयोग कर:

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

अद्यतन: एक और अधिक कुशल दृष्टिकोण Schwartzian रूपांतरण है:

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

Answer 2

मैं YYYY/MM/DD प्रारूप बेहतर सिर्फ इस कारण के लिए, पसंद करते हैं। 1000/01/01 और 9999/12/31 के बीच, तारीखों को व्यवस्थित करने की गारंटी है।

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

तुम सच में DD/MM/YYYY प्रारूप में की जरूरत है, तो आप हमेशा एक पूरा Schwartzian transform के लिए जा सकते हैं।

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

या

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

Answer 3

या टाइमस्टैम्प में युग प्रारूप का उपयोग करें और उन्हें संख्या के रूप में सॉर्ट। फिर डेट स्ट्रिंग आउटपुट को अपनी इच्छानुसार कनवर्ट करें। फिर आप मूल तारों को स्वरूपित करने के साथ अटक नहीं गए हैं।

Answer 4

कई लोगों ने यहां तर्क दिया कि तिथियों का मूल प्रारूप yyyy-mm-dd प्रारूप में होना चाहिए, लेकिन किसी ने भी पर्ल कोड नहीं दिया है जो अभी तक उस मामले को संभाल सकता है। तो यहां यह है:

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