Leser: 19
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
sub send_command_and_get_response { my($self,$line) = @_; my $resp = ""; if ($self->send_line($line)) { # The response ends w/a on a line by itself while (1) { my $line; $line = $self->get_socket->getline; if (!defined $line) { croak("Error receiving response"); }