In diesem Tipp erhalten Sie grundlegende Informationen zum Verarbeiten und Bearbeiten von Datums- und Uhrzeitangaben in Perl.
Wenn Sie die Funktion localtime() im skalaren Kontext verwenden, werden Datum und Uhrzeit aus der im System festgelegten aktuellen Zeitzone zurückgegeben. Versuchen Sie das folgende Beispiel, um das aktuelle Datum und die aktuelle Uhrzeit im Vollformat zu drucken:
Beispiel:
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
####################################################
my $datestring = localtime();
print "Content-type: text/html\n\n";
print "Local Datum und Uhrzeit $datestring\n";
}
use CGI::Carp qw(fatalsToBrowser);
####################################################
my $datestring = localtime();
print "Content-type: text/html\n\n";
print "Local Datum und Uhrzeit $datestring\n";
}
Ausgabe:
Lokales Datum und Uhrzeit Sun Mar 29 09:57:57 2020
PS: Die Ausgabe ist in Englisch
Formatieren Sie Datum und Uhrzeit mit der Funktion localtime() können Sie eine Liste mit 9 Elementen abrufen. Später können Sie mit der Funktion printf() Datum und Uhrzeit basierend auf Ihren Anforderungen wie folgt formatieren:
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
printf("Time Format - HH:MM:SS\n");
printf("%02d:%02d:%02d", $hour, $min, $sec);
Hier eine schlichte Umwandlung mit zwei Routinen in die Deutsche Ausgabe:
print &GetMyTime();
sub GetMyTime()
{
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,$Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = &MyLocalTime($_[0]);
my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my @WochentageK = ("So","Mo","Di","Mi","Do","Fr","Sa");
my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
if($_[1]==1)
{
return "$WochentageK[$Wochentag]. $Monatstag.$Monat.$Jahr $Stunden:$Minuten";
}
return "$WochentageK[$Wochentag]. $Monatstag.$Monat.$Jahr
$Stunden.$Minuten:$Sekunden Uhr";
}
sub MyLocalTime()
{
my $delta=$_[0];
if(!$delta){$delta=0;}
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+$delta);
$mon+=1;
$yday+=1;
$hour = "0$hour" if ($hour < 10);
$min = "0$min" if ($min < 10);
$sec = "0$sec" if ($sec < 10);
$mday = "0$mday" if ($mday < 10);
$mon = "0$mon" if ($mon < 10);
$year = 2000 + ($year - 100);
return ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
}
Mit der Funktion time() können Sie die Epochenzeit abrufen, dh die Anzahl der Sekunden, die seit einem bestimmten Datum vergangen sind. In Unix ist es der 1. Januar 1970.
#!/usr/local/bin/perl
my $sekunden = time();
print "Anzahl der Sekunden seit dem 1. Januar 1970 - $sekunden\n";
