$size=-s 'dateiname.txt'; print $size; |
open (my $IN,"datei.txt"); $size=-s $IN; close $IN; print $size; |
printf("%.3f Tage Zugriffszeit",-A $Datei); |
open (FILE,"bild.gif"); binmode(FILE) if -B FILE; |
exit(-1) unless -b "/cdrom"; |
if(-C $Datei > 10) { print "Warnung!"; } |
exit(-1) if -c "/cdrom"; |
chdir("test") if -d "test"; |
print "text.txt existiert!" if -e "text.txt"; |
&tuwas if -f "text.txt"; |
chmod 02771, "daten" unless -g "daten"; |
print "test.pl ist sticky" if -k "test.pl"; |
print readlink("text.txt") if -l "text.txt"; |
printf("seit %.3f Tagen nicht modifiziert",-M $Datei); |
&tuwas if -o "text.txt"; |
open(FILE,"<text.txt") if -r "text.txt"; |
print "pipe" if -p "myprog"; |
next if -S $_; |
print -s $Eintrag if not -d $Eintrag; |
print "STDIN ist tty" if -t "STDIN"; |
die "kein uid-Bit" if not -u "text.pl"; |
open(FILE,">text.txt") if -W "text.txt"; |
system("myprog") if -x "myprog"; |
open(FILE,"<text.txt") if not -z "text.txt"; |