Schwartzsche Transformation - Problem mit CSV

[Siechfred]

Tag Jonas.

Kleine Ergänzung, die es evtl. etwas übersichtlicher macht (ich habe die Zeitumwandlung einfach in eine eigene Subroutine ausgelagert):

#!/usr/bin/perl -w  
use strict;  
use warnings;  
use CGI::Carp qw(fatalsToBrowser);  
use Date::Calc qw/Date_to_Time/;  
use Data::Dumper;  
  
my @Daten = ("eins;10.01.2001", "zwei;05.05.1977", "drei;01.06.2004", "vier;07.07.2002", "fuenf;08.08.1988");  
  
my @sortiert = map  { $_->[0] }  
               sort { $a->[1] <=> $b->[1] }  
               map  { [ $_, epsec((split /;/)[1]) ] } @Daten;  
  
print "Content-type: text/html\n\n";  
print "<p>Ausgangsdaten: ";  
print Dumper \@Daten;  
print "</p>";  
print "<p>Schwartzsche Transformation:</p>";  
print Dumper \@sortiert;  
  
sub epsec {  
  my $date = shift;  
  my @dates = split(/\./, $date);  
  my $secs = Date_to_Time($dates[2], $dates[1], $dates[0], 0, 0, 0);  
  return $secs;  
}

Das Ergebnis kannst du dir hier ansehen: http://www.anaboe.net/cgi-bin/test.pl

Siechfred