| |
| |
| |
|
Comments:
<0> ; expr [clock format [clock seconds] -format %j] % 2
<1> _Gotisch: #2 (452 clicks) Tcl error: expected integer but got "058" (looks like invalid octal number)
<0> ; expr int([clock format [clock seconds] -format %j] % 2)
<1> _Gotisch: #3 (451 clicks) Tcl error: expected integer but got "058" (looks like invalid octal number)
<0> ;string strip
<1> _Gotisch: #4 (548 clicks) Tcl error: bad option "strip": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, tolower, toupper, totitle, trim, trimleft, trimright, wordend, or wordstart
<0> ; string trimleft
<1> _Gotisch: #5 (527 clicks) Tcl error: wrong # args: should be "string trimleft string ?chars?"
<2> what are you trying to do?
<0> ; string trimleft [clock format [clock seconds] -format %j] 0
<1> _Gotisch: #7 (380 clicks) Tcl: 58
<0> find out if its a even day
<2> ;expr 001
<1> hest: #9 (160 clicks) Tcl: 1
<0> ; expr 058
<1> _Gotisch: #10 (257 clicks) Tcl error: expected integer but got "058" (looks like invalid octal number)
<2> hrmf
<0> yep
<2> ;string trim 003250000
<1> hest: #13 (268 clicks) Tcl: 003250000
<2> ;string trim 003250000 0
<1> hest: #14 (228 clicks) Tcl: 325
<0> trimleft
<2> but you'd of course want that trimleft
<2> yes
<0> ; time {string trimleft [clock format [clock seconds] -format %j] 00}
<1> _Gotisch: #18 (238 clicks) Tcl: 05:15
<0> arg
<0> whats the use if i cant time !
<2> heh
<2> why would you want to use time?
<3> (bin) 1 % time {string trimleft [clock format [clock seconds] -format %j] 00}
<3> 188 microseconds per iteration
<3> thats why =>
<2> dunno why he would include that in his format, though
<2> ^^
<2> is .htaccess the only way to refuse users access to files on the webserver?
<0> i dont want to include it
<0> i wanted to see
<0> if string trimleft and calculating with a big numbe
<0> +r
<0> or string index end and calculating with only the last number would be faster
<2> i got that
<0> but they are the same
<0> ; set redir [expr {[info patchlevel] >= "8.4.7"?{2>@1}:{2>@stdout}}]
<1> _Gotisch: #124 (459 clicks) Tcl: 2>@stdout
<4> i keep getting "extra characters after close brace", and i can't figure out where my extra whitespace is: http://rafb.net/paste/results/rn3ac211.html
<5> hedpe: isn't the answer obvious to you from the message?
<5> this is a closing brace -> }
<5> now look at all the places in your code where you have a closing brace and non-whitespace character following it
<6> "for {set i 0}{$i < num_senders}{incr i} {" should be "for {set i 0} {$i < num_senders} {incr i} {"
<6> you forgot to space out the arguments
<4> neoxed: thank you
<7> no one does bash in here do they?
<8> smokey: ask, perhaps i respond in an hour or so
<7> i figured it out
<9> ;set list "-1 -1 -1"; if {[regexp {[0-9]} $list]} { puts "any other number than -1" } else { puts "all -1" }
<1> anc-: #45 (stdout) any other number than -1
<9> i need it to know when all the numbers are -1
<9> ;set list "-1 -1 -1"; if {![regexp {[0-9]} $list]} { puts "any other number than -1" } else { puts "all -1" }
<1> anc-: #47 (stdout) all -1
<9> ;set list "-1 -1 1"; if {![regexp {[0-9]} $list]} { puts "any other number than -1" } else { puts "all -1" }
<1> anc-: #48 (stdout) all -1
<9> nevermind someone helped me
<9> ;set list "-1 -1 -1"; regsub -all $list "-1" list "9"
<1> anc-: #57 (351 clicks) Tcl error: bad switch "-1 -1 -1": must be -all, -nocase, -expanded, -line, -linestop, -lineanchor, -start, or --
<9> regsub -all $list {-1} list {9}
<9> ;regsub -all $list {-1} list {9}
<1> anc-: #59 (316 clicks) Tcl error: bad switch "-1 -1 -1": must be -all, -nocase, -expanded, -line, -linestop, -lineanchor, -start, or --
<9> why
<5> wtf are you doing
<9> im trying to change the -1 digit to 9
<5> regsub -all {\-1} $list {9}
<1> chilla: #63 (126647 clicks) Tcl: 9 9 9
<9> oh
<9> ok
<0> ;proc 50 {} {set seed [clock clicks];set rand [md5 $seed];proc 50 {} "set seed $rand; [lrange [split [info body 50] ;] 1 end]";return [string index $rand 0]}
<1> _Gotisch: #76 (15139 clicks) Tcl:
<0> ;50
<1> _Gotisch: #77 (24057 clicks) Tcl: d
<0> ;50
<1> _Gotisch: #78 (2519 clicks) Tcl error: invalid command name "seed"
<0> ;info body 50
<1> _Gotisch: #79 (346 clicks) Tcl: set seed dc273899afb42173ec0def9e11e6b5da; seed {[clock} {clicks];set} rand {[md5} {$seed];proc} 50 {{}} {"set} seed {$rand;} {[lrange} {[split} {[info} body 50\] {;]} 1 {end]";return} {[string} index {$rand} 0\]
<0> ;proc 50 {} {set seed [clock clicks];set rand [md5 $seed];proc 50 {} "set seed $rand; [join [lrange [split [info body 50] ;] 1 end]]";return [string index $rand 0]}
<1> _Gotisch: #80 (369 clicks) Tcl:
<0> ;info body 50
<1> _Gotisch: #81 (359 clicks) Tcl: set seed [clock clicks];set rand [md5 $seed];proc 50 {} "set seed $rand; [join [lrange [split [info body 50] ;] 1 end]]";return [string index $rand 0]
<0> ;50
<1> _Gotisch: #82 (1490 clicks) Tcl: e
<0> ;50
<1> _Gotisch: #83 (2557 clicks) Tcl error: invalid command name "seed"
<0> ;info body 50
<0> ...
<0> ;info body 50
<1> _Gotisch: #84 (349 clicks) Tcl: set seed e7b316ff6b3ea4591b1f74ba14a485d8; seed [clock clicks];set rand [md5 $seed];proc 50 {} "set seed $rand; [join [lrange [split [info body 50] ;] 1 end]]";return [string index $rand 0]
<1> _Gotisch: #86 (347 clicks) Tcl: set seed e7b316ff6b3ea4591b1f74ba14a485d8; seed [clock clicks];set rand [md5 $seed];proc 50 {} "set seed $rand; [join [lrange [split [info body 50] ;] 1 end]]";return [string index $rand 0]
<0> ;proc 50 {} {set seed [clock clicks];set rand [md5 $seed];proc 50 {} "set seed $rand; [join [lrange [split [info body 50] ";"] 1 end]]";return [string index $rand 0]}
<1> _Gotisch: #87 (358 clicks) Tcl:
<0> ;50
<1> _Gotisch: #88 (1369 clicks) Tcl: f
<0> ;50
<1> _Gotisch: #89 (393 clicks) Tcl error: wrong # args: should be "set varName ?newValue?"
<0> ;info body 50
<1> _Gotisch: #90 (357 clicks) Tcl: set seed fd5d62fa6fe6040dfdab5c0194fb5108; set rand [md5 $seed] proc 50 {} "set seed $rand [join [lrange [split [info body 50] " "] 1 end]]" return [string index $rand 0]
<0> ;proc 50 {} {set seed [clock clicks];set rand [md5 $seed];proc 50 {} "set seed $rand; [join [lrange [split [info body 50] ";"] 1 end] ";"]";return [string index $rand 0]}
<1> _Gotisch: #91 (354 clicks) Tcl:
<0> ;50
<1> _Gotisch: #92 (1379 clicks) Tcl: d
<0> ;50
<1> _Gotisch: #93 (1323 clicks) Tcl: 2
<0> ;50
<1> _Gotisch: #94 (1316 clicks) Tcl: 8
Return to
#tcl
or
Go to some related
logs:
#beginner
#computers
#nintendo
wada2k
@members.bangbros.com
#computers
#politics
#nhl
#unixhelp
osvaldosanchez
|
|