История изменений
Исправление AITap, (текущая версия) :
Исправил ошибки в Вашем файле: http://paste.debian.net/98908/
1) my @hosts=("192.168.1.1","192.168.1.2","192.168.1.3");
Скобки необходимы вследствие приоритета оператора "," над «=» - иначе получается присвоение массиву одной строки и две константы в пустом контексте.
2) Исправил опечатку в строке подключения (переменная $spassword не объявлена).
Первые две ошибки Вам нашли warnings и strict.
3) $dbh->disconnect; имеет смысл только тогда, когда соединение установлено - перенёс его внутрь блока if
4) Избавился от C-style for loop в пользу более простого и понятного foreach
5) Прогнал через perltidy для улучшения форматирования кода
Теперь должно работать.
UPD: Вы и сами всё исправили. Поздравляю.
Исходная версия AITap, :
Исправил ошибки в Вашем файле: http://paste.debian.net/98908/
1) my @hosts=("192.168.1.1","192.168.1.2","192.168.1.3");
Скобки необходимы вследствие приоритета оператора "," над «=» - иначе получается присвоение массиву одной строки и две константы в пустом контексте.
2) Исправил опечатку в строке подключения (переменная $spassword не объявлена).
Первые две ошибки Вам нашли warnings и strict.
3) $dbh->disconnect; имеет смысл только тогда, когда соединение установлено - перенёс его внутрь блока if
4) Избавился от C-style for loop в пользу более простого и понятного foreach
5) Прогнал через perltidy для улучшения форматирования кода
Теперь должно работать.