Farid Hajji: Perl - Einführung, Anwendungen, Referenz
2., aktualisierte und erweiterte Auflage
Addison-Wesley Longman, ISBN 3-8273-1535-2
quickifcmd.pl
#!/usr/local/bin/perl -w
# quickifcmd.pl -- Bedingte Befehle
use vars qw ( *FILE ); # Um Warnungen ueber FILE zu unterdruecken.
print "1+1 = 2\n" if 1+1 == 2; # Gibt 1+1 = 2 aus.
print "We are root\n" if $< == 0 or $> == 0; # Nur bei root.
die "can't open file: $!\n" # Fehlerausgabe, wenn es
unless open(FILE, "< this.file"); # nicht geklappt hat.
[Prev] [Up] [Relevant Chapter] [Next]
[Alte Quelle]
| Last modified: $Date: 2006/05/18 12:56:02 $ FH. Search :: Sitemap :: Disclaimer :: Copyright :: Privacy |
 |