小编Noo*_*rep的帖子

我有一个包含一系列IP的数组.现在我正在尝试通过ssh连接到这些IP并回显它们的主机名.我遇到了这个Stackoverflow的答案,但没有得到太多的信息.这就是我所拥有的:

#!/usr/bin/perl
use warnings;
use strict;
use Term::ANSIColor;
print colored( "Number of machines: \n", 'green' );
my $number = <>;

my @arr = ();
my $ip = 0;
while (@arr < $number) {
        print colored( "\nIP Address: \n", 'green' );
        my $IP = <STDIN>;
        chomp $IP;
        push @arr, $IP;
}


print colored( "this is the hostname:\n", 'green' ); foreach $ip (@arr) {
        print "`ssh host\@$ip hostname \n`";
}

但我得到以下错误:

Can't use string ("IP") as an ARRAY ref while …