Wochentag aus einem Datum ermitteln

Dazu verwendet man am besten das Modul use Time::Local;, welches in jeder Perl Distribution enthalten sein sollte.

Folgendes Beispiel sollte eigentich als Lösung reichen. Dabei wird der Wochentag in einer Subroutine &Wochentag errechnet, welche den Wochentag zurückgibt.

use Time::Local;
$date="01.01.2002";
print "Der $date ist ein ";
print &Wochentag("$date");

sub Wochentag
  {
  my ($tag,$monat,$jahr,$time,$wtag);
  my @Wochentage=qw(Sonntag Monatag Dienstag Mittwoch Donnerstag Freitag Samstag);
  ($tag,$monat,$jahr)=split(/\./, @_[0]);
  $monat--;
  $time = timelocal(0,0,0,$tag,$monat,$jahr);
  $wtag = (localtime($time))[6];
  return @Wochentage[$wtag];
  }

Dieser Artikel wurde zugesandt von: Jürg Sommer, knowledge@cgicorner.ch