Leser: 1
4 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use strict; use warnings; use Net::SCP::Expect; sub myErrorHandler { ... mach irgendwas ... } my $scpe = Net::SCP::Expect->new(verbose=>1,auto_yes=>1,user=>$user,password=>$pw,error_handler=>\&myErrorHandler); $scpe->scp($ip,$config_file_linux);
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/usr/bin/perl use strict; use warnings; use Net::SCP::Expect; my $scpe = Net::SCP::Expect->new(verbose=>1,auto_yes=>1,user=>$user,password=>$pw); eval { $scpe->scp($ip,$config_file_linux); }; if ($@) { ... Fehlerbehandlung ... }
4 Einträge, 1 Seite |