Perl：爲每個設備分別記錄日誌並將日誌文件名中的IP轉換爲主機名

Question

我創建了一個遠程連接到多個交換機的perl。我的代碼僅爲多個思科交換機生成一個日誌文件輸出。

我該如何爲每個設備狀態創建單獨的日誌文件（包括telnet失敗）？ 我怎麼能從日誌文件名轉換IP到主機名？

所需的輸出日誌文件一個接一個，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); 

Answer 1

我沒有任何的telnet設備來進行測試，但至少應該讓你最方式。它使用Socket中的gethostbyaddr()嘗試將IP解析回主機名（並且如果找不到該名稱，則回退到使用IP作爲主機名）。它還使用適當的三參數形式open與詞法文件句柄（與裸句柄相對），並且它爲輸入文件中找到的每個主機打開一個新的日誌文件，用於以hostname.log的格式寫入。

use warnings; 
use strict; 

use Net::Telnet::Cisco; 
use Socket; 

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

open my $infile, '<', "ip.txt" or die $!; 

for my $ip (<$infile>) { 
    chomp $ip; 
    $ip =~ s/\t+//; 

    # resolve IP to hostname if possible 

    my $host = gethostbyaddr(inet_aton($ip), AF_INET); 

    $host = $ip if ! $host; 

    SWTELNET($host); 
} 

close $infile; 

sub SWTELNET { 

    my $host = shift; 

    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"); 

     # no need to manually close the file after, as it'll happen 
     # automatically as soon as the scope ends 

     open my $wfh, '>', "$host.log"; 
     print $wfh "$host\n@supenv\n"; 
    } 
}