egghelp/eggheads community

Please help with this character ( ¤)

2010-01-24T11:24:47-04:00

Code:

if {[regexp {\xa4} [encoding convertfrom utf-8 $rname]] == 1 || [string length $rname] > 45} {..}

Finally it's working perfect!!

Thank you very much Guys.

Statistics: Posted by Reynaldo — Sun Jan 24, 2010 11:24 am

Please help with this character ( ¤)

2010-01-24T10:37:38-04:00

You were already told how to make it work my man. Use "convertfrom utf-8" instead of "convertto utf-8" and it works without artifcating in those Â remnants into the string.

Code:

 .tcl set rname [encoding convertfrom utf-8 "bla bla bla bla bla ¤"] Tcl: bla bla bla bla bla ¤ .tcl set result [regexp -- {\xa4} $rname] Tcl: 1 .tcl set rname [encoding convertfrom utf-8 "bla bla bla bla bla bla bla bla bla bla bla ¤ bla bla bla bla bla bla bla bla"] Tcl: bla bla bla bla bla bla bla bla bla bla bla ¤ bla bla bla bla bla bla bla bla .tcl if {[regexp {\xa4} [encoding convertfrom utf-8 $rname]] == 1 || [string length $rname] > 45} { set d "works" } { set d "fails" } Tcl: works

Code:

if {[regexp {\xa4} [encoding convertfrom utf-8 $rname]] == 1 || [string length $rname] > 45} {..}

Statistics: Posted by speechles — Sun Jan 24, 2010 10:37 am

Please help with this character ( ¤)

2010-01-23T23:06:12-04:00

set rname "bla bla bla bla bla ¤"

Code:

if {[regexp {\xA4} $rname] == 1 || [string length $rname] > 45} {..}

Doesnt works! using eggdrop v1.6.18.
i'm going be silly with this char
how about using scan method? just scan the last chars of $name, cause the ugly spammers always(not) have that silly char at the end of their realname

Statistics: Posted by Reynaldo — Sat Jan 23, 2010 11:06 pm

Please help with this character ( ¤)

2010-01-23T14:44:29-04:00

Thanks guys. Thought I was going nuts there for a while.

Statistics: Posted by arfer — Sat Jan 23, 2010 2:44 pm

Please help with this character ( ¤)

2010-01-23T14:17:42-04:00

This smells like a character set issue...

Indeed, this is one of those iso8859-1/utf-8 rendering issues. The easiest way to solve it, is to force the string your comparing against into utf-8. Then always use "\xa4" to do _any_ matching. -- OR-- Simply utf-8 patch your bot with thommey's utf-8 patch...

Code:

** via partyline -- those Â's in the bot's response aren't rendered on IRC, just here on the forum. They make all the difference when matching though. .tcl set text [encoding convertto utf-8 "Mp3 ¤ My Song - Yeah, it is.mp3 ¤"] Tcl: Mp3 Â¤ My Song - Yeah, it is.mp3 Â¤** A direct match of course fails .... .tcl set b [regexp {¤} $text]  Tcl: 0** Using \xa4 always works no matter where... .tcl set b [regexp {\xa4} $text]  Tcl: 1 .tcl if {[string match *\xa4* $text]} { set b "works" } { set b "fails" } Tcl: works .tcl regexp -- {\xa4(.*?)\xa4} $text -> result Tcl: 1** notice the remnant of that silly Â in the output. This is the utf-8 sequence broken by an unpatched bot.  The bottom way fixes this. .tcl set showme $result Tcl: My Song - Yeah, it is.mp3 Â** the trick is use an atom (.) prior to the \xa4 in regexp's .tcl regexp -- {.\xa4(.*?).\xa4} $text -> result Tcl: 1 .tcl set showme $result Tcl: My Song - Yeah, it is.mp3** perfect!

This is clearly an iso8859-1/utf-8 rendering/matching issue. I've dealt with these before...

Statistics: Posted by speechles — Sat Jan 23, 2010 2:17 pm

Please help with this character ( ¤)

2010-01-23T13:13:46-04:00

This smells like a character set issue...
All four "non-working" tests evaluate to true under a simple tclsh environment for me. When pasting the same code into a telnet session (still using the very same putty setup), all ¤ are converted to $, causing the patterns with \xA4 to fail, but the others to work...

Doing something as simple as "scan [format %c 164] %c" returns 164, as expected. If I enter the ¤ into the strings and patterns using [format ...], all patterns work without a problem, including the \xA4 ones...

Statistics: Posted by nml375 — Sat Jan 23, 2010 1:13 pm

Please help with this character ( ¤)

2010-01-23T12:37:31-04:00

Sorry about my earlier post. I should have tested first. I have no clue why it does not work. Other than possible solutions provided by TCL_no_TK methodology, the only way I can get the thing to work is by using a regexp with the actual character in question inside grouping elements ([ and ]), as follows :-

[16:27] <@arfer> % return [regexp -- {[¤]} "bla bla bla bla bla ¤"]
[16:27] <@Baal> 1

What really puzzles me is why none of the following will work :-

[16:29] <@arfer> % return [regexp -- {¤} "bla bla bla bla bla ¤"]
[16:29] <@Baal> 0

[16:29] <@arfer> % return [regexp -- {.*¤.*} "bla bla bla bla bla ¤"]
[16:29] <@Baal> 0

[16:35] <@arfer> % return [regexp -- {\xA4} "bla bla bla bla bla ¤"]
[16:35] <@Baal> 0

[16:36] <@arfer> % return [regexp -- {[\xA4]} "bla bla bla bla bla ¤"]
[16:36] <@Baal> 0

Anyway, the answer to your original query would be :-

Code:

if {([regexp -- {[¤]} $rname]) || ([string length $rname] > 45)} { .... }

I think!

I wouldn't mind some sort of explanation for this myself. Where is our friend nml375 when we need him?

Statistics: Posted by arfer — Sat Jan 23, 2010 12:37 pm

Please help with this character ( ¤)

2010-01-22T23:12:45-04:00

Code:

 set text "¤ Mp3 ¤ My Song - Yeah, it is.mp3 ¤" set string [lindex [split $text] 0] set test [scan $string %c] if {$test == 164} {  putlog "detected that $text! starts with ¤ :P" }

There's probably a much easyer and better way to do this

Ok, that can detect if the char is in the first of the chars

set text "Mp3 ¤ My Song - Yeah, it is.mp3 ¤"

return of %c will be 77 of M

set hong [scan [string trimleft [lrange $rname 1 end]] %c]

Statistics: Posted by Reynaldo — Fri Jan 22, 2010 11:12 pm

Please help with this character ( ¤)

2010-01-22T22:13:45-04:00

Code:

 set text "¤ Mp3 ¤ My Song - Yeah, it is.mp3 ¤" set string [lindex [split $text] 0] set test [scan $string %c] if {$test == 164} {  putlog "detected that $text! starts with ¤ :P" }

There's probably a much easyer and better way to do this

Statistics: Posted by TCL_no_TK — Fri Jan 22, 2010 10:13 pm

Please help with this character ( ¤)

2010-01-22T20:43:42-04:00

Code:

 set rname [format {%c} 164] set test [scan $rname %c]  if {$test == 164} {   puts "It Worked!"  }

Code:

set rname [format {%c} 164]

seems it's not working. , the character is in $rname.

Statistics: Posted by Reynaldo — Fri Jan 22, 2010 8:43 pm

Please help with this character ( ¤)

2010-01-22T07:21:07-04:00

Code:

 set rname [format {%c} 164] set test [scan $rname %c]  if {$test == 164} {   puts "It Worked!"  }

Statistics: Posted by TCL_no_TK — Fri Jan 22, 2010 7:21 am

Please help with this character ( ¤)

2010-01-22T02:17:20-04:00

Code:

format {%c} "164"

how to use it?

Code:

if {[string match "*[format {%c} "164"]*" $rname] || [string length $rname] > 45} { .... }

it's right? thanks for the advice.

Statistics: Posted by Reynaldo — Fri Jan 22, 2010 2:17 am

Please help with this character ( ¤)

2010-01-20T23:54:40-04:00

Code:
if {[string match "*\xA4*" $rname] || [string length $rname] > 45} { .... }
The above should work fine because characters up to hex FF can be represented by using a backslash followed by an x and then the two digit hex number (164 decimal == A4 hex).

[12:51] .tcl set varname \xA4
[12:51] Tcl: ¤

BTW, you dont need to use == 1 with a string equal / string match. The fact that they return 1 (true) or 0 (false) can be used directly in a 'if' statement. Neither do you need the -nocase option since \xA4 is one specific character ie. it does not have an upper/lower case.

still the bot cannot detect that character, i've try to use "*\00164*" also not working.

Statistics: Posted by Reynaldo — Wed Jan 20, 2010 11:54 pm

Please help with this character ( ¤)

2010-01-20T08:52:03-04:00

Code:

if {[string match "*\xA4*" $rname] || [string length $rname] > 45} { .... }

The above should work fine because characters up to hex FF can be represented by using a backslash followed by an x and then the two digit hex number (164 decimal == A4 hex).

[12:51] .tcl set varname \xA4
[12:51] Tcl: ¤

BTW, you dont need to use == 1 with a string equal / string match. The fact that they return 1 (true) or 0 (false) can be used directly in a 'if' statement. Neither do you need the -nocase option since \xA4 is one specific character ie. it does not have an upper/lower case.

Statistics: Posted by arfer — Wed Jan 20, 2010 8:52 am

Please help with this character ( ¤)

2010-01-20T07:58:11-04:00

Code:

format {%c} "164"

Statistics: Posted by TCL_no_TK — Wed Jan 20, 2010 7:58 am