0

複数のスイッチに telnet で接続する perl を作成しました。私のコードは、複数の Cisco スイッチに対して 1 つのログ ファイル出力のみを生成します。

デバイスのステータスごとに個別のログ ファイルを作成するにはどうすればよいですか (telnet の失敗を含む)? また、ログファイル名から IP をホスト名に変換するにはどうすればよいですか?

必要な出力ログ ファイルは、1 つずつ、hostname1.log、hostname2.log、hostname3.log などです。

これが私のコードです：

#!/usr/bin/perl
use strict;
use warnings;
use Net::Cisco;

my $username="danny";
my $pass="1234";

open (OUTPUT, ">intstatus.log" );
open (IP, "ip.txt") or die $!;

for my $line (<IP>) {
chomp $line;
$line =~ s/\t+//;
print $line, "\n";
SWTELNET($line); # pass $line as the argument to SWTELNET
}
sub SWTELNET {

my $host = shift; # $host is set to the first argument passed in from the above loop
my $t = Net::Telnet::Cisco -> new (
Host => $host,
Prompt => '/(?m:^(?:[\w.\/]+\:)?[\w.-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$)/',
Timeout => 6,
Errmode => 'return',
) or die "connect failed: $!";

if ($t->login($username,$pass)) {
$t->autopage;
$t->always_waitfor_prompt;

my @supenv=$t->cmd("show ip int br");
my @output = ();
print OUTPUT "$host\n@supenv\n";
 }
}
close(IP);
close(OUTPUT);
4

1 に答える 1