| |
| |
| |
|
Page: 1 2
Comments:
<0> =)
<1> =(
<2> FireEgl you there?
<0> eh?
<2> care to look at something?
<2> you got 10-15mins right?
<0> Well if you show me.. I can't help but look.. =)
<2> haha
<2> holdon though, looks like BL4DE is peeking
<0> =D
<2> dont have room for more than 2 in my pants :P
<0> o_O
<3> u gonna show him those 20 lines of hack ? :S
<2> haha
<2> im afraid not
<2> then he'll have safetcl fixed
<4> lol
<1> http://img321.imageshack.us/img321/7177/pict00777ie.jpg
<0> wtf
<1> =P
<0> =)
<5> =]
<6> =)
<5> you reporto-cardo is down, niggaaaaa
<6> =O
<2> FireEgl, BL4DE, Robb`, anyone there?
<6> yea
<2> great
<7> Drax im here too
<2> Gotisch, do you know why my ****in wife wont output a .txt correctly? It skips empty rows.. even rows with just a ".", first row: 1, second blank (works!), then 2, then blank(stops working here),34567
<2> Ive tried stuff that is supposed to work, but still doesnt help.
<7> you have set the correct line separator?
<2> can I pm?
<7> sure
<8> hi
<8> any one knows how can i let my bot accept [ DCC SEND ] from me
<9> hi there
<9> i have a tcl script that works in xp
<9> while is not working in linux
<9> i think it is a shell problem
<9> http://www.rafb.net/paste/results/rGIP9Q62.html
<9> any ideas?
<9> k
<9> solved it was the first line
<9> addSetting {} DistribMode radio "Distribution Mode" "Alfserver rsh"
<9> in a string like this....
<9> addSettings is the function
<9> but which is the widget name?
<9> DistribMode?
<9> while radio is the button type?
<10> while -> http://www.tcl.tk/man/tcl8.4/TclCmd/while.htm
<11> any1 a little gifted with regexp here?
<5> just ask your question
<0> =)
<11> im trying to match a * in a string
<11> tried string match / regexp
<12> ;set test {hell*}
<13> yoe: #1249 (246 clicks) Tcl: hell*
<12> ;string match [addslashes $test] hello
<13> yoe: #1250 (838 clicks) Tcl: 1
<12> hm
<5> ;string match {hell\*} hell*
<13> Pixelz: #1252 (426 clicks) Tcl: 1
<5> ;string match {hell\*} hello
<13> Pixelz: #1253 (454 clicks) Tcl: 0
<12> doesn't addslashes add \ for *?
<12> ;info body addslashes
<13> yoe: #1255 (401 clicks) Tcl: string map {\\ \\\\ \| \\| \[ \\[ \] \\] \{ \\{ \} \\} $ \\$ \` \\` \' \\' \" \\"} $text
<12> hmpf
<11> ah
<5> heh kind of a design flaw there
<11> ; set text {test*test}
<13> D0m: #1259 (255 clicks) Tcl: test*test
<11> ;string match {\*} $test
<13> D0m: #1260 (441 clicks) Tcl: 0
<12> ;proc addslashes {string} { return [string map {\\ \\\\ \| \\| \[ \\[ \] \\] \{ \\{ \} \\} $ \\$ \` \\` \' \\' \" \\" "\*" "\\*"} $string] }
<13> yoe: #1261 (996 clicks) Tcl error: Attempt to redefine command DENIED! =P
<12> grr
<11> ;string match {*\**} $test
<13> D0m: #1263 (406 clicks) Tcl: 1
<5> why not write a proc that escapes everything?
<5> might as well
<12> true..
<11> ; set text {testtest}
<11> ;string match {*\**} $test
<13> D0m: #1267 (183 clicks) Tcl: testtest
<13> D0m: #1268 (443 clicks) Tcl: 1
<11> allways tru
<11> +e
<11> ;string match {*\**} $text
<13> D0m: #1271 (448 clicks) Tcl: 0
<11> mmm
<5> ;proc addslashes2 string {regsub -all (.) $string {\\\1}
<5> ;proc addslashes2 string {regsub -all (.) $string {\\\1}}
<13> Pixelz: #1273 (521 clicks) Tcl:
<5> ;addslashes2 {{[foo\bar]*?"}}
<13> Pixelz: #1274 (1365 clicks) Tcl: \{\[\f\o\o\\\b\a\r\]\*\?\"\}
<5> ;subst [addslashes2 {{[foo\bar]*?"}}]
<13> Pixelz: #1275 (968 clicks) Tcl: {[oo\
<5> heh
<5> guess not
<12> ;proc addSlashes {string} { foreach t [split $string {}] { append return "\\[subst $t]" }; return $return }
<13> yoe: #1278 (543 clicks) Tcl:
<5> ;format %x [scan * %c]
<13> Pixelz: #1279 (311 clicks) Tcl: 2a
<12> ;addSlashes {testing.*?[]\{}}
<13> yoe: #1280 (744 clicks) Tcl error: extra characters after close-brace
<5> ;subst \x2a
<13> Pixelz: #1281 (188 clicks) Tcl: *
<12> ;addSlashes {testing.*?[]\{\}}
<13> yoe: #1282 (1220 clicks) Tcl error: missing close-bracket
<12> mh
<5> ;string match \x2a *
<12> ;addSlashes {testing.*?[]}
<13> Pixelz: #1284 (379 clicks) Tcl: 1
<5> ;string match \x2a x
<13> yoe: #1285 (920 clicks) Tcl error: missing close-bracket
<13> Pixelz: #1286 (391 clicks) Tcl: 1
<5> hrm
<12> ;proc addSlashes {string} { foreach t [split $string {}] { append return "\\$t" }; return $return }
<13> yoe: #1288 (559 clicks) Tcl:
<12> ;addSlashes {testing.*?[]}
<13> yoe: #1289 (940 clicks) Tcl: \t\e\s\t\i\n\g\.\*\?\[\]
<5> ;string match {\x2a} x
<13> Pixelz: #1290 (417 clicks) Tcl: 0
<5> ;string match {\x2a} *
<13> Pixelz: #1291 (452 clicks) Tcl: 0
<5> feh
<12> ;string match [addSlashes {hell*}] {hello}
<11> ;string match {\44} *
<13> yoe: #1293 (697 clicks) Tcl: 0
<13> D0m: #1294 (383 clicks) Tcl: 0
<12> ;string match [addSlashes {hell*}] {hell*}
<13> yoe: #1295 (723 clicks) Tcl: 1
<5> the regsub way was so much prettier :D
<12> true ;)
<11> i lost ya
<11> lol
<12> ;proc addslashes2 string {regsub -all -- (.) $string {\\\0}}
<13> yoe: #1300 (573 clicks) Tcl:
<12> ;addslashes2 {test.*#[]}
<13> yoe: #1301 (805 clicks) Tcl: \t\e\s\t\.\*\#\[\]
<11> ;string match [addSlashes {*}] {hell*damn}
<13> D0m: #1302 (654 clicks) Tcl: 0
<11> ;string match [addSlashes *{*}*] {hell*damn}
<13> D0m: #1303 (724 clicks) Tcl: 0
<11> ;string match *[addSlashes {*}]* {hell*damn}
Return to
#tcl
or
Go to some related
logs:
#computers
Luiz_Felipe_Scolari racist
#politics
_levelN._visible
#hardware
arsouf
Linux Portiable
#unixhelp
Alexander Tyler-fall of the athenian republic
#computers
|
|
