Datumsberechnungen in Perl

  ~> date '+%d-%m-%Y'

liefert ruckzuck das aktuelle Datum im gewünschten Format.

In perl muss ich ein kleines bisschen mehr machen:

Die grundlegende Funktion dafür ist

 ($sek,$min,$std,$mtag,$mon,$jahr,$wtag,$jtag,$isdst) = localtime(time);

(s. auch die übliche Perldoku). Dabei ist natürlich zu beachten, dass die Monatsangabe im Bereich 0 - 11 liegt, d.h. es muss 1 addiert werden. Zur Jahreszahl muss 1900 addiert werden, um die allgemein übliche Ausgabe "2001" zu bekommen, bzw. es muss 100 subtrahiert werden, um eine zweistellige Ausgabe zu erreichen.

Das kann man sich zwar zurechtbiegen, aber das ganze mehrfach in einem Skript (in unterschiedlichen Formaten) zu machen ist lästig.

Man kann das natürlich in eine "date +%xxx"-ähnliche Form bringen, wie es in dieser Funktion auch gemacht wurde:

sub now {
  
  my $FORMAT=$_[0];

  my $NOW=timelocal(localtime);
  my $y=sprintf("%02d",(localtime($NOW))[5]-100);
  my $Y=sprintf("%04d",(localtime($NOW))[5]+1900);
  my $m=sprintf("%02d",(localtime($NOW))[4]+1);
  my $d=sprintf("%02d",(localtime($NOW))[3]);
  my $H=sprintf("%02d",(localtime($NOW))[2]);
  my $M=sprintf("%02d",(localtime($NOW))[1]);
  my $S=sprintf("%02d",(localtime($NOW))[0]);

  $FORMAT =~ s/%y/$y/;
  $FORMAT =~ s/%Y/$Y/;
  $FORMAT =~ s/%m/$m/;
  $FORMAT =~ s/%d/$d/;
  $FORMAT =~ s/%H/$H/;
  $FORMAT =~ s/%M/$M/;
  $FORMAT =~ s/%S/$S/;

  return $FORMAT;
}

now("%Y-%m-%d")

2001-09-13

now kennt folgende Parameter (die natürlich sehr eng an das Unix-date-Kommando angelehnt sind):

• %Y: Jahreszahl vierstellig
• %y: Jahreszahl zweistellig
• %m: Monatsnummer (1-12)
• %d: Tag (1-31)
• %H: Stunde (0-23)
• %M: Minute (0-59)
• %S: Sekunde (0-59)