1

IO::Socket::Inet を介した外部システムとの通信に問題があります。ログインして複数のコマンドをシステムに送信しようとしましたが、58 行目のコマンド print が条件ステートメントの下にある場合、残念ながらこれは機能しません。この場合の条件ステートメントは、応答データを処理するために必要です。

package Net::Cli::Cisco;

use 5.006;
use strict;
use warnings FATAL => qw(all);

use IO::Socket::INET;
use Carp;

use Data::Dumper;
$| = 1;

sub new {
    my $class = shift;
    my %args  = @_;
    my $self  = bless {
        _host     => $args{host}     || carp('No hostname defined'),
        _username => $args{username} || carp('No username defined'),
        _password => $args{password} || carp('No password defined'),
        _logged_in => 0,
    }, $class;
    return $self;
}

sub connect {
    my $self = shift;
    my $host = $self->{_host};
    my $port = 23;

    my $handle = IO::Socket::INET->new(
        Proto    => "tcp",
        PeerAddr => $host,
        PeerPort => $port,
        Type     => SOCK_STREAM,
        Timeout  => 3
    ) or die "can't connect to port $port on $host: $!";

    my $shc = "\r\n";
    $self->{shc}    = $shc;
    $self->{handle} = $handle;
}

sub getInterface {
    my ($self) = @_;
    $self->connect;
    my @cmd_list = ( "sh clock", "sh ip int brief" );
    $self->send_cmd(@cmd_list);
}

sub send_cmd {
    my ( $self, @cmd_list ) = @_;
    my $handle = $self->{handle};
    my $response;
    while ( $response = <$handle> ) {

        if ( $response =~ m/^Username:/ ) {
            print "Conditional statements exec done!\n";
            print $handle $self->{_username} . $self->{shc};
        }

        #print $handle $self->{_username} . $self->{shc};
        print $response;
        print $handle $self->{_password} . $self->{shc};
        print $handle "enable" . $self->{shc};
        print $handle $self->{_password} . $self->{shc};
        print $handle "term leng 0" . $self->{shc};

        foreach my $cmd (@cmd_list) {
            print $handle "$cmd" . $self->{shc};
        }
        print $handle "exit" . $self->{shc};

    }

    close($handle);
}

1;

my $x = __PACKAGE__->new(
    "host"     => "1.1.1.1",
    "username" => "user",
    "password" => "pw"
);
$x->getInterface;

なぜ私のコードが間違っているのかわかりません。注: 61 行目をお勧めすると、すべて正常に動作します。何か案は?

4

1 に答える 1