title image


Smiley Re: datum wieder in sekunden umrechnen...
ich versteh die anleitung von activeperl net ganz...

Glaube ich nicht.





#!/usr/bin/perl -w

use strict;

use warnings;

use Time::Local;



my $str = 'Sa, 5. Februar 2005 um 20:04 Uhr';

my %m = ();

@m{qw/Januar Februar März April Mai Juni Juli August September Oktober November Dezember/} = (0 .. 11);



if ($str =~ /^\w{2}\,\ (\d{1,2})\.\ ([a-zA-ZäöüÄÖÜ]+)\ (\d{4})\ um (\d{2})\:(\d{2}) Uhr$/) {

die 'Monat falsch' unless exists $m{$2};



my $time = timelocal(0, $5, $4, $1, $m{$2}, $3);

print scalar(localtime($time)), "\n";

}

else {

die

}


Doron



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: