Thread Frage zu telnet (54 answers)
Opened by grey1987 at 2007-11-21 12:13

grey1987
 2007-11-23 14:33
#102906 #102906
User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]
ok, hab jetzt noch bisschen erweiter, will nämlich jetzt noch einen Befehl eingeben, wenn die Antwort ACK war:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

use strict;
use warnings;
use Net::Telnet;

my $telnet = new Net::Telnet (Timeout => 10, Errmode=>'return', Port=>1810, Prompt => '/[\$%#>] $/' );
my $fh = $telnet->dump_log( 'test.log' );

$telnet->open('PC110197');
$telnet->errmode( sub{ return @_ unless $_[0] =~ /eof/ } );

$telnet->cmd('CLIENT CREATE');
my $data = $telnet->buffer;
my ($message) = split /\0/, $$data;

if ($message eq "ACK")
{
  print "CLIENT CREATE BESTAETIGT!!!";
  $telnet->cmd('CONNECT');
  my $data1 = $telnet->buffer;
  my ($message1) = split /\0/, $$data1;

  if ($message1 eq "ACK")
  {
    print "\nCONNECT BESTAETIGT!!!";
  }
  else
  {
    print "CONNECT NICHT BESTAETIGT!!!"
  }

}
else
{
  print "CLIENT CREATE NICHT BESTAETIGT!!!";
}


was stimmt da nicht, weil die Ausgabe immer CONNECT BESTAETIGT ist, egal ob ich CONNECT oder was anderes hinschreibe.
bei was anderem als CONNECT, müsste die Meldung CONNECT NICHT BESTAETIGT erscheinen, tut es aber nicht!


kannst du mir noch erklären was dieses
Code (perl): (dl )
  my $data1 = $telnet->buffer;

macht?

View full thread Frage zu telnet