Hi,
irgendwas geht da nicht, nur was mach ich falsch...
mein PHP script :
ob_start();
passthru("perl class_getIP.pl IP USER PW ZIEL");
$out = ob_get_contents();
ob_end_clean();
echo $out
mein PERL Script
#!c:\xampp\perl\bin\perl.exe
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die',
Prompt => '/\$ $/i');
my $i = 0;
my $host = "";
my $user = "";
my $pw = "";
foreach (@ARGV) {
if ($i eq 0) {$host = $_;}
if ($i eq 1) {$user = $_;}
if ($i eq 2) {$pw = $_;}
if ($i eq 3) {$get = $_;}
++$i;
}
$telnet->open($host);
print "open<br>";
$telnet->login($user, $pw);
$telnet->print('ypcat hosts|grep ', $get);
print "cmd<br>";
$output = $telnet->waitfor('/\$ $/i');
print $output;
bin wie immer, fuer jede hilfe dankbar...
gruss,
nicki