problem with split

[eiSi]

hi there!

this is my little proc:

proc qrequest {nick uhost hand chan args} {
global qqueue home
set commands [split $args " "]
set channel [lindex $commands 0]
set chantype [lindex $commands 1]
lappend qqueue $channel
lappend qqueue $nick
lappend qqueue $chantype
set qqlength [expr [llength $qqueue] / 3]
notice $nick "$nick, your request for $channel (Type: $chantype) has been queued. There are $qqlength items in queue."
}

but the response I get:

tuxX, your request for {#rbot (Type: private}) has been queued. There are 1 items in queue.

why are there those {} brackets?

thanks for any help!

[ppslim]

This is because fo the way you split it, and the variable name you used.

$args has a special function in Tcl, and is used to access unlimited length argument lists. Examples of this include the "list" command, where can keep on specifying items to add.

The $args vaiable is allready a list of the arguments passed, so you don't need to split it.

Change this to arg in the definition, and the same in the split.

Second, you dont need the " " in the split. Split uses " " by default.

That should be enough to fix the script for you.

[eiSi]

ah thanks!

I didn't know that.

But now all works fine

Thanks again!

[bz]

The '{' and '}' are used to define the start and end of a list(object).

I think ur problem occurs because u use the variable name 'args' which already creates a list from the rest of the input string. Try this:

Code: Select all

proc qrequest {nick uhost hand chan arg} { 
  global qqueue home 
  set commands [split $arg]  
  lappend qqueue [lindex $commands 0]
  lappend qqueue $nick 
  lappend qqueue [lindex $commands 1]
  set qqlength [expr [llength $qqueue] / 3] 
  notice $nick "$nick, your request for $channel \(Type: $chantype\) has   been queued. There are $qqlength items in queue." 
} 

[bz]

ok ignore my reply ..

[eiSi]

hehe but thank you anyway!