Programmieren mit Perl

POSIX

use POSIX;

# Auf- oder abrunden von Floats zum nächsten Integerwert.
$n = ceil($n);     # Aufrunden.
$n = floor($n);    # Abrunden.

# Erzeugt "2000-04-01" für den heutigen Tag.
$datestr = strftime("%Y-%m-%d", localtime);

# Erzeugt "Saturday 04/01/00" für das gleiche Datum.
$datestr = strftime("%A %D", localtime);

# Probiert neue temporäre Dateinamen aus, bis wir einen erhalten, der noch
# nicht existiert. Siehe auch File::Temp im CPANoder in v5.6.1.
do {
    $name = tmpnam();
} until sysopen(FH, $name, O_CREAT|O_EXCL|O_RDWR, 0666);

# Prüfen, ob das System ein unsicheres chown besitzt. if (sysconf(_PC_CHOWN_RESTRICTED)) { print "Hurra --- nur der Superuser darf chown aufrufen\n"; } # uname-Info des aktuellen Systems ermitteln. my($kemel, $hostname, $release, ...