Umgang mit Zahlen
Wie in anderen Sprachen können auch in Perl mit Zahlen gewisse Berechnungen angestellt werden.
abs(): liefert den Betrag, analog |-7| = 7.
sqrt(): Quadratwurzel.
int(): runden.
exp(): Exponentialwert.
log(): Logarithmus.
sin(): Sinus.
cos(): Cosinus.
atan(): arcus tangens.
hex(): Umwandlung in Dezimalwert.
Als Parameter die Zahl bzw. den Wert übergeben, also z.B. abs($zahl), sqrt(4), int(sqrt(34)), usw. atan() erfordert zwei Werte (von/ bis), also z.B. atan2(2.56,10.59) .
Beispiel für den Gebrauch von hex() (aus SelfHTML):
<![CDATA[
@Hexwerte = (10,20,30,40,50,60,70,80,90,A0,B0,C0,D0,E0,F0);
for(@Hexwerte)
{
$Dezimalwert = hex($_);
print $_, " ist dezimal: ", $Dezimalwert, "\n";
}
]]>
Einfache Zeit-Funktion
Perl liefert die Server-Zeit zurück, für eine lokale Zeitangabe muss Javascript eingesetzt werden! (z.B. Übergabe der Zeit durch ein verstecktes Formularfeld (input type="hidden").)
<![CDATA[
@zeit = localtime(time);
$zeit[5] += 1900;
$zeit[4]++;
if ($zeit[1]<10) {$zeit[1]="0$zeit[1]"}
if ($zeit[2]<10) {$zeit[2]="0$zeit[2]"}
$datum = "$zeit[3]. $zeit[4]. $zeit[5] um $zeit[2]:$zeit[1] Uhr";
]]>