|
![]() ![]() ![]() ![]() ![]() |
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 |