Zeitangaben mit perl

[Denis]

Hi!

@months = ("January","February","March","April","May","June","July","August","September","October","November","December");

»»

Einfach die Monatsnamen überschreiben.

$year += 1900;
   $long_date = sprintf("%s %02d, %4d at %02d:%02d:%02d",$months[$mon],$mday,$year,$hour,$min,$sec);

»»

hier das at einfach mit um oder was auch immer ersetzen...

$year %= 100;
   if ($use_time == 1) {
      $date = sprintf("%02d:%02d:%02d %02d/%02d/%02d",$hour,$min,$sec,$month,$mday,$year);
   }
   else {
      $date = sprintf("%02d/%02d/%02d",$month,$mday,$year);

Und hier willst Du's wahrscheinlich so:
$date = sprintf("%02d/%02d/%02d",$mday,$month,$year);

Gruß
Denis