egghelp/eggheads community

TsT

[...] while {![eof $onmsg]} { gets $onmsg msg1 set tempmsg [split $msg1 " " ] set tempmsg0 [lindex $tempmsg 0] switch -- $tempmsg0 { 1 - 2 - 3 - 4 - 5 { set msg [string trimleft $msg1 $tempmsg0] } "" {close $onmsg ; return 1} } puthelp "NOTICE $nick :$msg " } close $on...

TsT

putserv "PRIVMSG $bchan "Global Message from $nick: $misc1end"

should be:

Code: Select all

putserv "PRIVMSG $bchan :Global Message from $nick: $misc1end"

TsT

Code: Select all

bind time - "00 00 * * *" clean:pub

TsT

It's true, I got proc1 is 3x more slower than proc2:

% time proc1
306 microseconds per iteration
% time proc2
103 microseconds per iteration

BUT there are not really equivalent because proc1 provide a matching result...
proc2 need string match to check if data is valid

TsT

And script can be perfect at the 1st time !
scripts needs update...

so i think keep the 1st version sent is little stupid

TsT

hehe TsT, the regexp lover :) I'm sorry to dissapoint you but regexp is slow, if you care about every millisecond then you should avoid regexp whenever possible I just saw this for the fun. Regexp is sometime more usefull to split lot of part of one string in one line, like: set nickuserhost "...

TsT

Are there not limit of size ?

can we send multiple file scripts ?
like:
- one script loader
- some tcl (librairies)
- some tcl (modules of this tcl)

what are the criteria to decide what script is the best ?

TsT

Papillon wrote:
Code: Select all
set ident [lindex [split $uhost @] 0]

Or with regexp:

Code: Select all

regexp {^([^@]+)} $uhost _ ident

TsT, the regexp lover.

TsT

Papillon wrote:you can change
Code: Select all
if {$vict == $botnick} {
to
Code: Select all
if {[string equal -nocase $vict $botnick]} {

You can also change to

Code: Select all

if {[isbotnick $vict]} {

and remove the

Code: Select all

global botnick

TsT

ppslim's solution is very good actually. if u collect all their hosts, u can get rid of them. anyway, in irc there is a script which bans on random nicks, I don't know if it can be done using tcl (bu I think it can). its like this (in mIRC) : if ( a !isin $nick ) && ( e !isin $nick ) &&...

TsT

Why not use global variable? like: # add a user proc my_adduser {mask} { global my_users set my_users([string tolower $mask]) "" } # return "" = not found # else return the 1st mask which matched proc my_searchuser {uhost} { global my_users set uhost [string tolower $uhost] forea...

TsT

can i ask waht is XML-RPC ?

TsT

or
- mysqltcl package
- tcl-sql lib
- ...

TsT

Or:
set var {bla bla\
bla}
(one line)

TsT

nitrandir wrote:and by the way ...
apt-get install doesn`t install any new packages...

apt-cache search tcl|grep ^tcl

apt-get install tcl8.4

egghelp/eggheads community

Search found 16 matches

Re: Well, there is a close...

Re: bind time question