Perl und Telnet...

[keksinat0r]

öhm

Ich bau mir Net::Telnet eine Verbindung zu einem Telnetserver auf.
Wenn ich diesem jetzt befehle schicke, schickt er mir natürlich etwas zurück...
Dies sieht immer Folgendermaßen aus:

blabla blubber
blubbdi blubb
[ok]
_

Ich würde jetzt gerne die zurückgegebenen Daten irgendwie Speicehrn, jedoch finde ich dazu net wirklich was...
Ich hab folgendes versucht:

@out = $telnet->print('befehl');
#oder
@out = $telnet->waitfor('/[ok]/');

Das gibt aber immer "1" zurück...
kann mir jemand sagen wie ich die Ausgaben bekomme?

 

[balrok]

In Linux mach ich das mit einer Logdatei:

./bla.pl > ~/Desktop/bla_output.txt

 

[keksinat0r]

is zwar scho bissel her, aber danke ^^

 

[menace]

Ich empfehle die passende Manpage zu lesen. Entweder auf cpan oder mittels perldoc Net::Telnet.
Dort steht z.B. folgendes:

           use Net::Telnet ();
           $t = new Net::Telnet (Timeout => 10,
                                 Prompt => '/bash\$ $/');
           $t->open("sparky");
           $t->login($username, $passwd);
           @lines = $t->cmd("who");
           print @lines;

oder auch

           $host->print("/bin/sh -c 'stty raw; cat $filename'");
           $host->getline;    # discard echoed back line

oder auch

           $pop->open(Host => $hostname,
                      Port => 110);

           ## Read connection message.
           $line = $pop->getline;
           die $line unless $line =~ /^\+OK/;

hth. (Ich liebe Unixdokumentation, sofern vorhanden oO )