egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2021-01-01T11:43:55-04:00 https://forum.eggheads.org/app.php/feed/topic/20899 2021-01-01T11:36:24-04:00 2021-01-01T11:36:24-04:00 https://forum.eggheads.org/viewtopic.php?p=109304#p109304 <![CDATA[strange behavior from llength]]>
very thanks :)

Statistics: Posted by geek — Fri Jan 01, 2021 11:36 am

]]> 2021-01-01T11:43:55-04:00 2021-01-01T10:29:10-04:00 https://forum.eggheads.org/viewtopic.php?p=109303#p109303 <![CDATA[strange behavior from llength]]>
Don't use list commands on strings.

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

Code: 

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

Statistics: Posted by SpiKe^^ — Fri Jan 01, 2021 10:29 am

]]> 2021-01-01T10:02:12-04:00 2021-01-01T10:02:12-04:00 https://forum.eggheads.org/viewtopic.php?p=109302#p109302 <![CDATA[strange behavior from llength]]>

Code: 

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?

Statistics: Posted by geek — Fri Jan 01, 2021 10:02 am

]]>