How can we use exist command for web read?

2012-03-31T08:50:37-04:00

Code:

6:54:57pm / *  !superlig6:54:59pm / *   1- Galatasaray 32 21 8 3 63 24 71 6:55:00pm / *   2- Fenerbahçe 32 19 7 6 58 33 64 6:55:01pm / *   3- Trabzonspor 32 15 9 8 59 38 54 6:55:02pm / *   4- Be_ikta_ 32 15 9 8 49 37 54 6:55:04pm / *   5- Sivasspor 32 12 11 9 55 52 47 6:55:07pm / *   6- Bursaspor 32 12 10 10 41 32 46 6:55:08pm / *   7- Gençlerbirlii 32 12 10 10 46 47 46 6:55:10pm / *   8- Eski_ehirspor 32 13 7 12 38 39 46 6:55:12pm / *   9- Gaziantepspor 33 12 9 12 37 33 45 6:55:14pm / *   10- 0stanbul B^B 32 12 8 12 46 49 44 6:55:16pm / *   11- KDÇ Karabükspor 33 13 4 16 43 55 43 6:55:18pm / *   12- Mersin 0dman Yurdu 33 12 6 15 34 43 42 6:55:20pm / *   13- Orduspor 32 10 11 11 28 32 41 6:55:22pm / *   14- Kayserispor 32 12 4 16 35 37 40 6:55:24pm / *   15- M.P. Antalyaspor 32 10 9 13 31 37 39 6:55:26pm / *   16- Samsunspor 32 8 9 15 34 45 33 6:55:28pm / *   17- Manisaspor 32 8 8 16 31 45 32 6:55:30pm / *   18- Ankaragücü 33 2 5 26 22 72 11

Code:

package require httpbind pub - !superlig superligproc superlig {nick uhost hand chan text} {set t [::http::geturl http://sporistatistik.hurriyet.com.tr/]set data [::http::data $t]::http::cleanup $t   set l [regexp -all -inline -- {(.*?)
.*?(.*?)
.*?(.*?)
.*?(.*?)
.*?(.*?)
.*?(.*?)
.*?(.*?)
.*?(.*?)
} $data]   foreach {black a b c d e f g h} $l {      set a [string trim $a " \n"]   set b [string trim $b " \n"]   set c [string trim $c " \n"]   set d [string trim $d " \n"]   set e [string trim $e " \n"]   set f [string trim $f " \n"]   set g [string trim $g " \n"]      set h [string trim $h " \n"]               regsub -all {<.+?>} $a {} a   regsub -all {<.+?>} $b {} b   regsub -all {<.+?>} $c {} c      regsub -all {<.+?>} $d {} d   regsub -all {<.+?>} $e {} e   regsub -all {<.+?>} $f {} f   regsub -all {<.+?>} $g {} g   regsub -all {<.+?>} $h {} h         putserv "PRIVMSG $chan : $a $b $c $d $e $f $g $h "   }}

Statistics: Posted by Guest — Sat Mar 31, 2012 8:50 am

How can we use exist command for web read?

2012-03-30T08:27:30-04:00

Hi, nowadays i'm workin' with http tcl.

Code:

bind pub - !superlig superlig proc superlig {nick uhost hand chan text} {   global botnick  set connect [::http::geturl http://sporistatistik.hurriyet.com.tr/]   set files [::http::data $connect]   regexp -nocase {(.+?)} $files - sayi  regexp -nocase { (.+?)
} $files - team  regexp -nocase {(.+?)
} $files - puan  ::http::cleanup $files   putquick "privmsg $chan $sayi $team ($puan)" }

This is my simple script but bot givin' only one message. Other teams aint givin' by bot. How can we correct this?

Statistics: Posted by Regex — Fri Mar 30, 2012 8:27 am

egghelp/eggheads community

How can we use exist command for web read?

How can we use exist command for web read?