OpenForum RSS: Perl Device::SerialPort запись в консоль cisco

OpenForum RSS: Perl Device::SerialPort запись в консоль cisco https://opennet.dev/openforum/vsluhforumID9/9249.html Возникла у меня необходимость ввобить команды в switch через перл скрпит, но почему-то ничего не происходит.<br>Прошу поделиться опытных.<br><br>Собственно мое:<br><br>#!/usr/bin/perl -w<br><br>use strict;<br>use Device::SerialPort;<br><br>sub openPort($);<br>sub closePort($);<br><br>my $device = "/dev/ttyUSB0";<br><br>sub openPort($)<br>{<br> my ($device) = @_;<br><br> my $serial = Device::SerialPort->new ($device, 1);<br> die "Can't open serial port $serial: $^E\n" unless ($serial);<br><br> $serial->databits(8);<br> $serial->baudrate(9600);<br> $serial->parity("none");<br> $serial->stopbits(1);<br><br> return $serial;<br>}<br><br>sub closePort($)<br>{<br> my ($serial) = @_;<br> $serial->close();<br>}<br><br>my $serial = openPort($device);<br><br>$serial->write("\r");<br>$serial->write("no");<br>$serial->write("enable");<br>$serial->write("conf t");<br>$serial->write("intel vlan 1");<br>$serial->write("ip addr 10.10.10.2 255.255.255.0");<br>$serial->write("no shut");<br>$serial->write("exit");<br>$serial->write("exit");<br><br>$serial->write("copy ftp://10.10.10.1/2960p.co Perl Device::SerialPort запись в консоль cisco (anonymous) https://opennet.dev/openforum/vsluhforumID9/9249.html#1 Fri, 07 Oct 2011 21:41:11 GMT > Возникла у меня необходимость ввобить команды в switch через перл скрпит, но <br>> почему-то ничего не происходит.<br><br>и где ломается?<br>