OpenForum RSS: Perl Telnet

Perl Telnet (Pahanivo)

Mon, 08 Jun 2009 14:06:58 GMT

>��

�� - �� )

Perl Telnet (Virtual)

Mon, 08 Jun 2009 13:08:44 GMT

>>[�� ]

�� !!!

Perl Telnet (sproot)

Sat, 21 Mar 2009 03:58:06 GMT

>[�� ]
>>perl expect site:opennet.ru/openforum/
>>perl telnet site:opennet.ru/openforum/
>>; do
>> google.ru + $S$ + ENTER
>>done
>>
>
>��, �� , �� .
>��
>

#!/usr/bin/perl -w
use strict;
use Net::Telnet;

my $script_prefix = '/usr/local/scripts/cisco';
my $r_db = "$script_prefix/routers.list";
my $cconfig = "$script_prefix/.config";
my $cexec = "$script_prefix/.exec";
my $readline = '';
my $WriteMem = 1; # [0,1] - [NoWrite,Write]
my $IOSmode = 1; # [0,1] - [Exec,Config]
#No work
my $StepByStepMode = 0;
#-
my $LoopExecMode = 0;
my $CountLoop = 24*60*60; # 24-hours
my $WriteLog = undef;
#my $WriteLog = "$script_prefix/CiscoTelnetMng.log";
#-

if ( !open(ROUTERS, "<$r_db") ) {
print "Error open file\n";
exit;
}

while(<ROUT

Perl Telnet (Virtual)

Fri, 13 Mar 2009 06:52:53 GMT

>for S in
>perl expect site:opennet.ru/openforum/
>perl telnet site:opennet.ru/openforum/
>; do
> google.ru + $S$ + ENTER
>done
>

��, �� , �� .
��

Perl Telnet (Andrey Mitrofanov)

Fri, 13 Mar 2009 06:31:38 GMT

for S in
perl expect site:opennet.ru/openforum/
perl telnet site:opennet.ru/openforum/
; do
google.ru + $S$ + ENTER
done

Perl Telnet (NuINu)

Fri, 13 Mar 2009 06:29:51 GMT

>�� :
>��
>�� . �� ?

�� Net::Telnet