Opened by fraggs at 2010-07-27 16:02
User since
2005-01-17
14748 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14748 Artikel
Admin1
Ungetestet.
Zeile 31 ändern in
Das fügt eine Sprungmarke IPNEXT für das später folgende next hinzu.
Zeile 41 ändern in:
Mit eval kannst du Perl-Ccode ausführen ohne einen Abbruch deines Programms durch ein Problem in Net::SCP::Expect zu erzeugen.
In der Variable $@ ist bei Problemen die Fehlermeldung aus dem in eval ausgeführtem Perl-Code drin.
Last edited: 2010-07-30 11:44:38 +0200 (CEST)
Zeile 31 ändern in
Code: (dl
)
IPNEXT: foreach $line (<IPFILE>)
Das fügt eine Sprungmarke IPNEXT für das später folgende next hinzu.
Zeile 41 ändern in:
Code: (dl
)
1
2
3
4
5
6
my $scpe;
# Login versuchen
eval { $scpe = Net::SCP::Expect->new(user=>'root',password=>$password,auto_yes=>1,recursive=>'1'); };
if ($@ && $@ =~ /Error: Bad Password/) { # falls Loginfehler
next IPNEXT; # versuche nächstes Login
}
Mit eval kannst du Perl-Ccode ausführen ohne einen Abbruch deines Programms durch ein Problem in Net::SCP::Expect zu erzeugen.
In der Variable $@ ist bei Problemen die Fehlermeldung aus dem in eval ausgeführtem Perl-Code drin.
Last edited: 2010-07-30 11:44:38 +0200 (CEST)