send tcl expect
  Home FAQ Contact Sign in
comp.lang.perl.tk only
 
Advanced search
POPULAR GROUPS

more...

comp.lang.perl.tk Profile…
 Up
send tcl expect         


Author: 401anil
Date: Mar 31, 2008 04:06

Hi,
I have written a script in tcl n expect to send a command to a switch
with tenet.
but i am unable to send more than 1024B data using send command i am
executing this script in linux machine please i need ur help here is
the script ........

#!usr/bin/tcl
package require Tclx
package require Expect
spawn telnet 192.179.0.5

match_max 5000
set bufferContents ""
set full ""
set match ""
set timeout 30
set c "ping6 fe80::207:e9ff:fe09:fb6d%%vlan1 "
set a
"111111111111111111111111111111111111111111111111111111111111111111111...
Show full article (2.63Kb)
1 Comment
Re: send tcl expect         


Author: smallpond
Date: Mar 31, 2008 06:02

On Mar 31, 7:06 am, 401a...@gmail.com wrote:
> Hi,
> I have written a script in tcl n expect to send a command to a switch
> with tenet.
> but i am unable to send more than 1024B data using send command i am
> executing this script in linux machine please i need ur help here is
> the script ........
>
> #!usr/bin/tcl

There's your problem. Change to:
#!/usr/bin/perl
no comments