Net::SCP::Expect: error - #7060 (Perl/CGI)

nepos

2006-03-06 17:13

User since
2005-08-17
1420 Artikel
BenutzerIn

Also, wenn ich die Doku richtig lese, dann hast du hier 2 Moeglichkeiten:
1.) Du gibst ihm beim new eine Code-Referenz auf eine Funktion mit, die Fehler handeln soll.
2.) Du packst das ganze in einen eval-Block. Damit wird der croak, der vom Modul im Fehlerfall aufgerufen wird, gefangen und du kannst danach $@ auswerten.

zu 1.)

Code (perl): (dl )

#!/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);

zu 2.)

Code (perl): (dl )

#!/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 ...
}