Thread Fragen zu OO Perl (rückgabewerte von funktionen) (4 answers)
Opened by f0 at 2010-12-13 19:02

Gast wer
 2010-12-13 19:46
#143535 #143535
Code (perl): (dl )
my $pty=$test->connect();


aber ich würde "connect" etwas anders schreiben:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

sub connect{

        my ($self) = @_;

        unless($self->{_pid})
        {

              my $host = $self->{_hostname};
              my %opts        = (
                    user     => $self->{_username},
                    password => $self->{_password},
                    master_opts =>
                        [ -o => "StrictHostKeyChecking false", -o => "HashKnownHosts false" ],
              );
              my $ssh = Net::OpenSSH->new( $host, %opts );
              my ( $pty, $pid ) = $ssh->open2pty();
              $self->{_pid}=$pid;
              $self->{_pty}=$pty;
        }
        return $self->{_pty};
}

Du willst doch nicht immer wieder eine neue Verbindung aufbauen, oder?

Dann kannst auch in "do_tftp_backup" schreiben:
Code (perl): (dl )
1
2

my $pty=$self->connect;
my $expect = Expect->init($pty);

Last edited: 2010-12-13 19:48:12 +0100 (CET)

View full thread Fragen zu OO Perl (rückgabewerte von funktionen)