Что не так с скриптом perl?

Question

[Андрей Бондарчук]

Помогите довести до ума скрипт

use Net::Telnet;
use IO::File;

open my ($ip) = (IPlist, "iplist" or die "can't open iplist: $!");

my ($username) = 'admin';
my ($passwd) = 'admin';
my ($ena)='enable';
my ($conf)='conf t';
my ($command1)='hostname R2D2';
my ($command2)='exit';
my ($command3)='wr mem';
	
 $t = new Net::Telnet (Timeout => 10, Telnetmode => 1,  Input_Log => "infile.log", Output_log => "output.log",);
           $t->open("$lines");
           $t->waitfor('/login:$/i');
           $t->print($username);
           $t->waitfor('/Password:$/i');
           $t->print($passwd);
		   $t->print ("$ena");
		   $t->print ("$conf");
		   $t->print("$command1");
		   $t->print("$command2");
		   $t->print("$command3");
		   $t->print("$command2");

При запуске скрипта пишет problem connecting to "" port 23.
Т.е. скрипт не извлекает строку с адресом из iplist.txt

Для цикла, как я понял, нужно будет использовать нечто вроде:

while (@ lines = "<IPlist>") 
 {
           $t->open("$lines");
           $t->waitfor('/login:$/i');
           $t->print($username);
           $t->waitfor('/Password:$/i');
           $t->print($passwd);
		   $t->print ("$ena");
		   $t->print ("$conf");
		   $t->print("$command1");
		   $t->print("$command2");
		   $t->print("$command3");
		   $t->print("$command2");
}
close ( IPlist );

но тогда скрипт просто виснет.
P.S. Команды написаны для примера.

Answer 1

[krypt3r]

open my ($ip) = (IPlist, "iplist" or die "can't open iplist: $!");
my ($username) = 'admin';
while (@ lines = "<IPlist>")

Ну и бред вы пишете.

Comments

[Андрей Бондарчук]

Какой полезный ответ. Я нуб в перле, пишу на уровне "сутки в гугле+метод тыка".
Алсо, каким бы кривым код не был, при указании конкретного адреса, не из файла, все работает.

[krypt3r]

Не работает, потому что вы не умеете файл открывать, присваивать переменной значение, обходить файл в цикле. Даже use strict отсутствует. Начните с переписывания указанных мною строк, и дело слегка сдвинется

open my $IPlist, '<', "iplist" or die "can't open iplist: $!";
my $username = 'admin';
while my $line (<$IPlist>)

[Андрей Бондарчук]

krypt3r: спасибо, но теперь вылезают синтаксические ошибки в рядом с while my и "}"

[krypt3r]

Тогда while (my $line <$IPlist>) или проще while (<$IPlist>) и внутри цикла используйте переменную $_

[Андрей Бондарчук]

krypt3r: а если не замарачиваться с циклом, тогда в ответ скрипт выдает "unknown remote host: >"

[krypt3r]

Если вам нужно законнектиться к куче айпишников и там что-то выполнить, без цикла не обойтись. Покажите последний вариант скрипта

[Андрей Бондарчук]

krypt3r:

use Net::Telnet;
use IO::File;
 
open my $IPlist, '<', "iplist.txt" or die "can't open iplist: $!";
	
my $username = 'admin';
my $passwd = 'admin';
my ($ena)='enable';
my ($conf)='conf t';
my ($command1)='hostname R2D2';
my ($command2)='exit';
my ($command3)='wr mem';
	
 $t = new Net::Telnet (Timeout => 10, Telnetmode => 1,  Input_Log => "infile.log", Output_log => "output.log",);
 while (<$IPlist>)
{
           $t->open("<$IPlist>");
           $t->waitfor('/login:$/i');
           $t->print($username);
           $t->waitfor('/Password:$/i');
           $t->print($passwd);
		   $t->print ("$ena");
		   $t->print ("$conf");
		   $t->print("$command1");
		   $t->print("$command2");
		   $t->print("$command3");
		   $t->print("$command2");
}

и выдает unknown remote host: > в 17 строке, т.е. $t->open("<$IPlist>");

[krypt3r]

$t->open("<$IPlist>"); замените на $t->open($_); И еще в начале цикла напишите chomp; — это уберет переводы строки из переменной $_
Я так полагаю, в файле у вас просто список IP?

[Андрей Бондарчук]

krypt3r: да, просто столбик ip адресов.
Спасибо Вам, мил человек, заработало!

[Андрей Бондарчук]

krypt3r: а не подскажите, как прицепить скажем счетчик к циклу, чтобы можно было отследить на каком адресе цикл застопорился? (если железка не пингуется.
Т.е. прошел цикл, скажем в переменную С занеслось 1, следующие +1, а если железка не отвечает цикл останавливается.

[krypt3r]

Если я правильно понял, вам надо такое:

my $counter = 0;
while (<$IPlist>)
{
    $counter++;
    # что-то делаем в теле цикла
}

[Андрей Бондарчук]

Спасибо огромное за помощь!
А вы случайно не знаете как организовать SSH подключение из под windows? Уже пару дней мучаюсь, установил уже Net::SSH::W32Perl, но при выполнении скрипт все равно ругается на getpwuid.

Вообще пишу так:

use warnings;
use strict;
use Net::SSH::W32Perl;
my $host = '255.255.255.255';
my ($user) = 'admin';
my ($pass) = 'admin';
my $ssh = Net::SSH::W32Perl->new($host, debug => 1, )  || die $!;
   $ssh->sock;
   $ssh->login($user, $pass);

[krypt3r]

Андрей Бондарчук: С Windows ничем не могу помочь. Не пользуюсь