Re^2: telnet from a cisco telnet

i modified this wrt your suggestions,...how about this

use strict;
use Net::Cisco;
use Net::Telnet();
$t =Net::Telnet::Cisco->new(Host=>'192.168.1.1');
print "connected";
$t->login('9190', 'KUM@R425');
$t->cmd("telnet 192.168.201.3");
print "connected";
$t->waitfor('password:$/i');
$t->print("public");
$t->waitfor('>$/i');
@output=$t->print("show system");
open(CONFIG,">config.txt");
print CONFIG "@output\n"; 
close(CONFIG);
$t->close;
[download]

Comment on Re^2: telnet from a cisco telnet Download Code

Replies are listed 'Best First'.
Re^3: telnet from a cisco telnet by Kumar Mantri (Novice) on Aug 09, 2011 at 09:11 UTC
i ran the above script but it is showing the following error.. Possible unintended interpolation of @output in string at C:\Users\Kum +ar\telnet. pl line 14. Global symbol "$t" requires explicit package name at C:\Users\Kumar\te +lnet.pl li ne 4. Global symbol "$t" requires explicit package name at C:\Users\Kumar\te +lnet.pl li ne 6. Global symbol "$t" requires explicit package name at C:\Users\Kumar\te +lnet.pl li ne 7. Global symbol "$t" requires explicit package name at C:\Users\Kumar\te +lnet.pl li ne 9. Global symbol "$t" requires explicit package name at C:\Users\Kumar\te +lnet.pl li ne 10. Global symbol "$t" requires explicit package name at C:\Users\Kumar\te +lnet.pl li ne 11. Global symbol "@output" requires explicit package name at C:\Users\Kum +ar\telnet. pl line 12. Global symbol "$t" requires explicit package name at C:\Users\Kumar\te +lnet.pl li ne 12. Global symbol "@output" requires explicit package name at C:\Users\Kum +ar\telnet. pl line 14. Global symbol "$t" requires explicit package name at C:\Users\Kumar\te +lnet.pl li ne 16. [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: telnet from a cisco telnet
by Kumar Mantri (Novice) on Aug 09, 2011 at 09:11 UTC

Possible unintended interpolation of @output in string at C:\Users\Kum
+ar\telnet.
pl line 14.
Global symbol "$t" requires explicit package name at C:\Users\Kumar\te
+lnet.pl li
ne 4.
Global symbol "$t" requires explicit package name at C:\Users\Kumar\te
+lnet.pl li
ne 6.
Global symbol "$t" requires explicit package name at C:\Users\Kumar\te
+lnet.pl li
ne 7.
Global symbol "$t" requires explicit package name at C:\Users\Kumar\te
+lnet.pl li
ne 9.
Global symbol "$t" requires explicit package name at C:\Users\Kumar\te
+lnet.pl li
ne 10.
Global symbol "$t" requires explicit package name at C:\Users\Kumar\te
+lnet.pl li
ne 11.
Global symbol "@output" requires explicit package name at C:\Users\Kum
+ar\telnet.
pl line 12.
Global symbol "$t" requires explicit package name at C:\Users\Kumar\te
+lnet.pl li
ne 12.
Global symbol "@output" requires explicit package name at C:\Users\Kum
+ar\telnet.
pl line 14.
Global symbol "$t" requires explicit package name at C:\Users\Kumar\te
+lnet.pl li
ne 16.
[download]

[reply]
[d/l]