|
testpasswd5.pl |
if (@ARGV > 0) { my $passwd = shift; eval { pwinit($passwd); }; if ($@) { warn "Unable to open $passwd. Trying default.\n"; pwinit("/etc/passwd"); } } |
Mit eval können beliebige Ausführungsfehler
abgefangen werden. Geht irgendetwas schief, wird die
zugehörige Fehlermeldung in $@ abgelegt.
| |
Damit ist es möglich, andere Fehlermeldungen zu
erzeugen oder Ersatzstrategien zu verfolgen.
|
theseus$ testpasswd5.pl root /no/such/file Unable to open /no/such/file. Trying default. Name: Super-User UID: 0 GID: 1 theseus$ |
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |