egghelp/eggheads community

How can i use regsub command for web read?

2012-02-09T02:12:18-04:00

@Johannes13 : Interesting. Thanks for sharing.

Statistics: Posted by caesar — Thu Feb 09, 2012 2:12 am

How can i use regsub command for web read?

2012-02-08T18:24:19-04:00

@Johannes13 thanks for your concern

Currently, my script is working with any problems.

Thank you so much!

Statistics: Posted by Regex — Wed Feb 08, 2012 6:24 pm

How can i use regsub command for web read?

2012-02-08T12:38:37-04:00

Ohh, and why do you subst when you got the page contents?

It can be (ab)used to inject commands.

And you know that there is a command called ::http::formatQuery?

It does basicaly the same thing as my enc proc does.

Code:

bind pub - !ingilizce msg_englishproc msg_english {nick uhost hand chan text} {  global botnick cmd_chan  if {![string match -nocase "$cmd_chan" $chan]} {return}  set connect [::http::geturl http://www.sozluk.com.tr/sozluk.php?[::http::formatQuery word $text]]  set files [::http::data $connect]  set list [split $files "\n"]  foreach i $list {    if {[regexp -- {(.+?)} $i - translation]} {      set translation [encoding convertfrom utf-8 [subst -nocommands -novariables [regsub -all {%([a-fA-F0-9]{2})} $translation {\u\1}]]]      putquick "privmsg $cmd_chan \0033$text: $translation"      unset translation    }  }  ::http::cleanup $files}putlog "Dictionary TCL - Idea By CLubber"

Statistics: Posted by Johannes13 — Wed Feb 08, 2012 12:38 pm

How can i use regsub command for web read?

2012-02-08T12:12:41-04:00

Code:

proc enc v {subst [regsub -all {[^a-zA-Z0-9\-_\.~]} [encoding convertto utf-8 $v] {[format %%%02X [scan {\0} %c]]}]}proc decode v {encoding convertfrom utf-8 [subst -nocommands -novariables [regsub -all {%([a-fA-F0-9]{2})} $v {\u\1}]]}

should work.

Why make such a big string map/regexp thing that slows down everything?
(and is complex to maintain)

Statistics: Posted by Johannes13 — Wed Feb 08, 2012 12:12 pm

How can i use regsub command for web read?

2012-02-08T09:47:33-04:00

@caesar thanks for your concern but still aint workin.

«15:43:01» !ingilizce Turk
«15:43:02» Turk: TÃ¼rk soyundan kimse

Just utf-8 characters making this.

How can we correct this with other ways?

Statistics: Posted by Regex — Wed Feb 08, 2012 9:47 am

How can i use regsub command for web read?

2012-02-08T03:40:51-04:00

I think you could use string map -nocase instead of the regsub lines, for example:

Code:

set text "one TWO TeN"set text [string map -nocase {one 1 two 2 ten 10} $text]

I tried your letters to figure out if it will work or not, but my copy/paste fails to copy the correct letters in my shell prompt for some reason, for example the ğ ends up as a . (dot).

Anyway, i think you can replace:

Code:

  regsub -all "ç" $text "%C3%A7" text  regsub -all "Ç" $text "%C3%87" text  regsub -all "ğ" $text "%C4%9F" text  regsub -all "Ğ" $text "%C4%9E" text  regsub -all "ı" $text "%C4%B1" text  regsub -all "İ" $text "%C4%B0" text  regsub -all "ö" $text "%C3%B6" text  regsub -all "Ö" $text "%C3%96" text  regsub -all "ş" $text "%C5%9F" text  regsub -all "Ş" $text "%C5%9E" text  regsub -all "ü" $text "%C3%BC" text  regsub -all "Ü" $text "%C3%9C" text

with:

Code:

string map -nocase {ç %C3%A7 Ç %C3%87 ğ %C4%9F Ğ %C4%9E ı %C4%B1 İ %C4%B0 ö %C3%B6 Ö %C3%96 ş %C5%9F Ş %C5%9E ü %C3%BC Ü %C3%9C} $text

and:

Code:

      regsub -all "%C3%A7" $text "ç" text      regsub -all "%C3%87" $text "Ç" text      regsub -all "%C4%9F" $text "ğ" text      regsub -all "%C4%9E" $text "Ğ" text      regsub -all "%C4%B1" $text "ı" text      regsub -all "%C4%B0" $text "İ" text      regsub -all "%C3%B6" $text "ö" text      regsub -all "%C3%96" $text "Ö" text      regsub -all "%C5%9F" $text "ş" text      regsub -all "%C5%9E" $text "Ş" text      regsub -all "%C3%BC" $text "ü" text      regsub -all "%C3%9C" $text "Ü" text      regsub -all "Ã§" $translation "ç" translation      regsub -all "Ã‡" $translation "Ç" translation      regsub -all "ÄŸ" $translation "ğ" translation      regsub -all "Ä±" $translation "ı" translation      regsub -all "Ä°" $translation "İ" translation      regsub -all "Ã¶" $translation "ö" translation      regsub -all "Ã–" $translation "Ö" translation      regsub -all "ŞŸ" $translation "ş" translation      regsub -all "Å" $translation "Ş" translation      regsub -all "Ã¼" $translation "ü" translation      regsub -all "Ãœ" $translation "Ü" translation

with:

Code:

string map -nocase {%C3%A7 ç %C3%87 Ç %C4%9F ğ %C4%9E Ğ %C4%B1 ı %C4%B0 İ %C3%B6 ö %C3%96 Ö %C5%9F ş %C5%9E Ş %C3%BC ü %C3%9C Ü} $textstring map -nocase {Ã§ ç Ã‡ Ç ÄŸ ğ Ä± ı Ä° İ Ã¶ ö Ã– Ö ŞŸ ş Å Ş Ã¼ ü Ãœ Ü} $translation

You will have to test this by yourself as my copy/paste fails miserably.

Statistics: Posted by caesar — Wed Feb 08, 2012 3:40 am

How can i use regsub command for web read?

2012-02-07T18:39:30-04:00

Hi dear egghelp.org moderators,

I'm searching regsub command for web read.

Code:

# Komutun Kullanılacağı Kanalset cmd_chan "#OperLog"bind pub - !ingilizce msg_englishproc msg_english {nick uhost hand chan text} {  global botnick cmd_chan  if {![string match -nocase "$cmd_chan" $chan]} {return}  regsub -all "ç" $text "%C3%A7" text  regsub -all "Ç" $text "%C3%87" text  regsub -all "ğ" $text "%C4%9F" text  regsub -all "Ğ" $text "%C4%9E" text  regsub -all "ı" $text "%C4%B1" text  regsub -all "İ" $text "%C4%B0" text  regsub -all "ö" $text "%C3%B6" text  regsub -all "Ö" $text "%C3%96" text  regsub -all "ş" $text "%C5%9F" text  regsub -all "Ş" $text "%C5%9E" text  regsub -all "ü" $text "%C3%BC" text  regsub -all "Ü" $text "%C3%9C" text  set (document) ""  set ("#history-button") ""  set ("#history") ""  set ("#history-clear") ""  set connect [::http::geturl http://www.sozluk.com.tr/sozluk.php?word=$text]   set files [::http::data $connect]   set list [split [subst -nocommands $files] "\n"]  foreach i $list {    regexp -- {(.+?)} $i - translation    if {[info exists translation]} {       regsub -all "%C3%A7" $text "ç" text      regsub -all "%C3%87" $text "Ç" text      regsub -all "%C4%9F" $text "ğ" text      regsub -all "%C4%9E" $text "Ğ" text      regsub -all "%C4%B1" $text "ı" text      regsub -all "%C4%B0" $text "İ" text      regsub -all "%C3%B6" $text "ö" text      regsub -all "%C3%96" $text "Ö" text      regsub -all "%C5%9F" $text "ş" text      regsub -all "%C5%9E" $text "Ş" text      regsub -all "%C3%BC" $text "ü" text      regsub -all "%C3%9C" $text "Ü" text      regsub -all "Ã§" $translation "ç" translation      regsub -all "Ã‡" $translation "Ç" translation      regsub -all "ÄŸ" $translation "ğ" translation      regsub -all "Ä±" $translation "ı" translation      regsub -all "Ä°" $translation "İ" translation      regsub -all "Ã¶" $translation "ö" translation      regsub -all "Ã–" $translation "Ö" translation      regsub -all "ŞŸ" $translation "ş" translation      regsub -all "Å" $translation "Ş" translation      regsub -all "Ã¼" $translation "ü" translation      regsub -all "Ãœ" $translation "Ü" translation      putquick "privmsg $cmd_chan 3$text: 1$ translation"      unset translation    }  }  ::http::cleanup $files}putlog "Dictionary TCL - Written By CLubber"

Shortly, regsub -all "Ã§" $translation "ç" translation < this command in my script isn't working.

How can correct turkish characters?

«00:30:47» <07ZaL> !ingilizce divine
«00:30:48» divine: TanrÄ± gibi olan

I wanna correct this "Ä±" => "ı"

I hope i could explain my problem.

Thx for your concers.

Statistics: Posted by Regex — Tue Feb 07, 2012 6:39 pm