Opened by Ispartali86 at 2006-12-07 13:03
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
Wenn du nicht tunneln willst/darfst...
Auf dem Server "X" muß es ein Script, ich nennen es mal "read_db.pl", geben, das die Datenbank abfrgt sieh dazu das Beispiel oben. Es gibt die Daten einfach mit "print" aus.
Auf dem Server "Y" ist "Net::SSH::Perl" installiert. Hier gibt es ein Script, das ungefähr so aussehen könnte:
Auf dem Server "X" muß es ein Script, ich nennen es mal "read_db.pl", geben, das die Datenbank abfrgt sieh dazu das Beispiel oben. Es gibt die Daten einfach mit "print" aus.
Auf dem Server "Y" ist "Net::SSH::Perl" installiert. Hier gibt es ein Script, das ungefähr so aussehen könnte:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH::Perl;
my ($host,$user,$pass)=('X','unbekannt','weissnicht');
# Verbindung aufbauen
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
# Befehl absetzen
my($daten, $fehler) = $ssh->cmd('/pfad/zum/script/read_db.pl');
die("SSH Fehler ($fehler)") if($fehler);
print "DATEN:\n$daten";
# eigendlich unnötig
# Verbindung schließen.
undef($ssh);