Thread datums vergleich: vergleichen von datums (33 answers)
Opened by fraggs at 2006-09-14 10:51

renee
 2006-09-14 11:24
#69865 #69865
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl

use strict;
use warnings;
use Date::Manip;

my @dates;
my @strings = ('AUDIO2-A3.12_P1:project:BmwWtz#1 Wed May 31 13:35:31 2006',
'AUDIO2-A3.17_P1:project:BmwWtz#1 Wed Sep 13 11:22:57 2006',
'AUDIO2-A3.8:project:BmwWtz#1 Mon May 08 18:18:02 2006',);

for my $string(@strings){
my ($date) = $string =~ m!#1 (.*)$!;
push @dates,$date;
}

my @sorted_dates = sort{Date_Cmp($a,$b)}@dates;
print $_,"\n" for(@sorted_dates);
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread datums vergleich: vergleichen von datums