| |
| |
| |
|
Comments:
<0> Hi !
<0> please i need help :(
<0> the eggdrop not reconize the channel mode +a on unrealirc serv ?!
<0> unrealircd
<1> whats the easiest way to open a file and read it into a list
<2> um open and read
<2> did you even look at the manual
<1> yeah i'm tryin to convert one of my python scripts to tcl
<1> i did a set infile states.txt then set input [open states.txt] then puts stdout $input just messing around with it and for some reason it printed file3
<1> open $infile rather
<1> nm figured it out
<3> hi wondering if anyone can help me with ttrace
<2> what is ttrace
<3> ttrace is part of the thread extension
<2> oh
<2> probly no one here knows threads
<3> and I have to use threads because the interpreter is embedded inside an app so I can't do vwait otherwise my life would be easy
<2> try comp.lang.tcl
<3> ok thanks anyway
<1> is there a random.choice(list) type function i tcl where it chooses a random item from a list
<1> in
<2> yeah its called lindex and expr
<4> set somelist {a b c d e f g h i j k l m n o p q r s t u v w x y z}
<5> FireEgl: #1528 (281 clicks) Tcl: a b c d e f g h i j k l m n o p q r s t u v w x y z
<4> lindex $somelist [expr int(rand()*[llength $somelist)])]
<5> FireEgl: #1529 (768 clicks) Tcl: l
<4> lindex $somelist [expr int(rand()*[llength $somelist)])]
<5> FireEgl: #1530 (674 clicks) Tcl: r
<4> You see? =) I KNOW MY A B C's! \o/
<2> way to hand out the answer
<4> =P
<1> thanks
<4> lindex $somelist [expr {int(rand()*[llength $somelist)])}]
<5> FireEgl: #1537 (605 clicks) Tcl: q
<4> BTW, the wiki has answers to stuff like that.. http://wiki.tcl.tk/
<1> what about string concatenation can you do set stringa string1 + string2 + string3?
<4> You want a list with each element being string1/string2/string3? Or a string made of all the other strings?
<1> string made of all the other strings
<4> set stringa "$string1 $string2 $string3"
<4> like that.
<1> k sweet
<4> You can also use the append command..
<1> one more question i may not need this but i did when i wrote this in python i had a dep=[x.replace('\n','') for x in dep] command in python that replaces the newline character in each item of a list called dep how would i do that?
<4> string map {"\n" {}} $somelist
<5> FireEgl: #1547 (775 clicks) Tcl: a b c d e f g h i j k l m n o p q r s t u v w x y z
<4> That's one time when it's safe to use a string based command on a list. =P
<6> i am new here if anyone doesn't mind me asking eggdrop is for FTP Servers? or something else?
<4> eggdrop is a general purpose IRC bot.
<6> IRC bot that is run off a FTP Server correct?
<4> no.
<4> PSA9: http://www.egghelp.org/whatis.htm
<6> i am New to TCL which i ***ume is Pearl. i need help with a tcl script, but for a FTP Server. can anyone here help?
<2> troll
<6> ok yea i remember what eggdrop is, been almost 6 years i ran a eggdrop, and had it confused with a sitebot, sorry and thanks FireEgl
<1> if i'm outputting to a file and i wanna include \n for a newline do i just do puts $outfile "$stringblah \n" ?
<7> if -> http://www.tcl.tk/man/tcl8.4/TclCmd/if.htm
<4> The puts command will automatically add the newlines.
<2> did you read the manual for puts
<2> if you had you would know this
<1> whats wrong with while { [gets $streetr line] >= 0} {lappend street $line} ?
<1> got a wrong # args: should be "while test command"
<1> trying to create a list from each line of a file
<4> eh.. Do this instead: set street [split [read -nonewline $streetr] \n]
<4> that'll read it and listify it in one gulp. =)
<4> ..That is, ***uming you're reading a file.
<1> yes thanks
<1> and now a i need a basic for loop like for (i=1;i<1001;i++)
<1> nm got that
<1> how do a store the result from the lindex $first [expr {int(rand()*[llength $first)])}] in a variable i tried set temp lindex $first [expr {int(rand()*[llength $first)])}] and got an error
<4> set temp [lindex $first [expr {int(rand()*[llength $first)])}]]
<5> FireEgl: #1575 (543 clicks) Tcl: -1
<1> yep just figured it out right when you put that up heh thanks a lot for your help
<1> tcl is a 180 from python
<1> is there a command for stripping leading and trailing white space?
<1> on a string
<1> found a trim function
<1> how would i used string trim on a list
<1> nm got it FireEgl thanks for all your help
<6> can someone tell me if their is a difference from tcl and itcl ?
<8> is there something in tcl i have missed, to determine what shared libraries are loaded?
<9> ;info sharedlibextentions
<5> th3dge: #1827 (2129 clicks) Tcl error: bad option "sharedlibextentions": must be args, body, cmdcount, commands, complete, default, exists, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, patchlevel, procs, script, sharedlibextension, tclversion, or vars
<9> ;info sharedlibextention
<5> th3dge: #1828 (2088 clicks) Tcl error: bad option "sharedlibextention": must be args, body, cmdcount, commands, complete, default, exists, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, patchlevel, procs, script, sharedlibextension, tclversion, or vars
<9> ;info sharedlibextenstion
<5> th3dge: #1829 (2086 clicks) Tcl error: bad option "sharedlibextenstion": must be args, body, cmdcount, commands, complete, default, exists, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, patchlevel, procs, script, sharedlibextension, tclversion, or vars
<9> argh
<10> hehe
<9> ;info sharedlibextension
<5> th3dge: #1832 (613 clicks) Tcl: .so
<9> well thats not it
<9> lol
<9> ;info loaded
<5> th3dge: #1835 (26997 clicks) Tcl:
<10> ;info th3dge
<5> N86ers: #1836 (2055 clicks) Tcl error: bad option "th3dge": must be args, body, cmdcount, commands, complete, default, exists, functions, globals, hostname, level, library, loaded, locals, nameofexecutable, patchlevel, procs, script, sharedlibextension, tclversion, or vars
<10> =(
<9> info loaded, is probably what your looking for
<8> bah missed it, thx man
<9> I am a bad option
<10> hehe
<9> :}
<10> ;]
<11> can tcl be compiled like a program or is it only for scripting use ?
<9> you can use a wrapper
<8> mmm, theres no easy way of doing an "info libexists"...set checklib "scripts/lib/somelib.so"; foreach lib [info loaded ""] { if {[lindex $lib 0] == "$mysql(lib)"} { set test "" } }; switch [info exists $test] 0 { load $lib } 1 { unset lib } ...is a bit of a pain :/
<11> a wrapper ?
<9> yeah
<9> google it
<9> tcl wrapper
<11> k
<10> ;set butthole "**** u all" ;set gaypride [lindex [join $butthole "-"] 0]
<5> N86ers: #1851 (484 clicks) Tcl: ****-u-all
<9> O_o
<8> ; string map {" " "-"} $butthole
<5> [piLL]: #1853 (705 clicks) Tcl: ****-u-all
<10> ;split $butthole "-"
<5> N86ers: #1854 (334 clicks) Tcl: {**** u all}
<11> ;append butthole !
<5> anc: #1855 (333 clicks) Tcl: **** u all!
<11> ;reverse $butthole
<5> anc: #1856 (8024 clicks) Tcl: !lla u kcuf
<11> ;reverse $butthole
<5> anc: #1857 (7860 clicks) Tcl: !lla u kcuf
<9> ;set hot-blonde "ssa"
<11> ;list $butthole
<5> th3dge: #1858 (301 clicks) Tcl: ssa
<5> anc: #1859 (353 clicks) Tcl: {**** u all!}
<9> ;reverse $hot-blonde
<5> th3dge: #1860 (662 clicks) Tcl error: can't read "hot": no such variable
<9> ;reverse ${hot-blonde}
<5> th3dge: #1861 (2978 clicks) Tcl: ***
<9> :D
<10> ;set homo [lrange [split $butthole] 1 end]
<10> (17:35:00) (Fittnylle) N86ers: #7 (103 clicks) Tcl: u all!
<5> N86ers: #1863 (440 clicks) Tcl: u all!
<9> we are nerds
<10> lol
<11> :)
<12> I'm not a hardcore coder, just trying to figure out some issues a vendor cannot seem to handle
<11> but ?
<12> I'm looking at an issue with TCL on Windows 2003, essentially spawn .. well, doesn't spawn.
<12> this is using expect, and trying to spawn cmd.exe /c blah.cmd
<12> any recommendations for where to start? :)
<13> spawn?
<13> you mean open a window?
Return to
#tcl
or
Go to some related
logs:
#beginner
male bestiatility
hard link fbsd
blankypoo
apuzilla
#stocks
#dreamweaver
wins tool
Michigan utility easement-define
#politics
|
|