strange behavior from llength

[geek]

I have this very simple piece of code:

Code: Select all

proc ldmtest {nick host hand chan arg} {

#
#	nel RFC 2812 sezione 2.3.1 vengono specificati i caratteri ammessi nel nickname
#
#	oltre a lettere e numeri sono permessi i seguenti:	[ ] \ ` _ ^ { | } -
#

	set RE {[^a-zA-Z0-9\s\[\]\\`_\^\{\|\}-]}
	if { [regexp -all -- $RE $arg] } {
		puthelp "PRIVMSG $chan :nickname non trovato"
		return
	}

	set nickname [stripcodes * $arg]

	set nickname [string trim $nickname]

#putlog "good until here"

	set arguments [llength $nickname]

	if { $arguments > 1 } {
		puthelp "PRIVMSG $chan :specificare un utente alla volta"
		return
	} elseif { $arguments == 0 } {
		puthelp "PRIVMSG $chan :specificare il nickname"
		return
	}

	if { ![onchan $nickname $chan] } {
		puthelp "PRIVMSG $chan :nickname non trovato"
		return
	}

}

if input is one of this:

• {
  {a
  { a
  { {

when llength runs, I get "Tcl error: unmatched open brace in list"

I just want to count the number of elements... how to get around the problem?

[SpiKe^^]

Your arg var is not a list.

Don't use list commands on strings.

Use split to turn arg into a list before checking it for llength.

Code: Select all

set nickname [string trim $nickname]
set arguments [llength [split $nickname]]

[geek]

perfect SpiKe^^

very thanks