egghelp/eggheads community

okay.. figured out how regexp syntax works

2004-02-02T13:09:32-04:00

okay.. figured out how regexp syntax works
but now i still have the problem of the foreach loop stopping after the first match... using this code:

Code:

        set data2 [http::data $data]         http::cleanup $data        foreach line [split $data2 \n] {        if {[regexp {(.*?)} $line data2 a ]} {            puthelp "NOTICE $chan :$a"           }

why is the loop stopping?

Statistics: Posted by Guest — Mon Feb 02, 2004 1:09 pm

Fetching data from www?

2004-01-26T15:50:45-04:00

<---- was only there to notice you about a wrong typing in the code.

it was at first $data when it should be $line

//

Statistics: Posted by t3ch^ — Mon Jan 26, 2004 3:50 pm

defining tags from the page in the expression

2004-01-25T10:56:29-04:00

Tcl provides two pattern matching mechanisms: glob-style patterns and regular expressions. Of the two, regular expressions are more difficult to understand and apply correctly, but they're much more powerful.

I have noticed that regexp is more powerful and more difficult..
i have been sitting here trying to solve it but i have to request your assistance..
I looked at the http://tcl.activestate.com/man/tcl8.4/TclCmd/http.htm page.. which helped me understand a bit..
but the parsing on my page stops at the tags spitting out:
[2:55pm] [0123] Site remodified
as u can see it spits out the html tag and the string i am looking for.. and stops parsing on further...
i tried replacing the

Code:

if {[regexp -nocase {(.*?)} $line <---- data2 a b]}

with

Code:

if {[regexp -nocase {"**"} $line <---- data2 a b]}

and other variations..

i know u are probably laughing... (me too) but thx for the help

Statistics: Posted by Guest — Sun Jan 25, 2004 10:56 am

Fetching data from www?

2004-01-02T12:20:22-04:00

well ill test it and once i find out .. ill let u know but i think it makes more will make more errors then do good hehe

Statistics: Posted by Ofloo — Fri Jan 02, 2004 12:20 pm

Fetching data from www?

2004-01-02T07:25:52-04:00

I have no idea.. it wasn't me that put the <---- in there
test it and see what it does... and then tell meh

Statistics: Posted by Papillon — Fri Jan 02, 2004 7:25 am

Fetching data from www?

2003-12-31T12:20:01-04:00

ah tnx nice ic what u mean now

(.*?)">(.*?)

sets the url to a and name of url to b

if {[regexp -nocase {(.*?)} $line <---- data2 a b]} {

<---- what does this do ? just some info ?

Statistics: Posted by Ofloo — Wed Dec 31, 2003 12:20 pm

Fetching data from www?

2003-12-31T11:50:01-04:00

sorry my bad
you are correct =)

Code:

if {[regexp -nocase {(.*?)} $line <---- data2 a b]} {

this would be almost like

Code:

string match "*" $line

ofc the difference is that where the string match only returns 1 or 0, the regexp puts the matches in different vars
so I'm not replacing chars, I'm just puliing out the needed info

Statistics: Posted by Papillon — Wed Dec 31, 2003 11:50 am

Fetching data from www?

2003-12-31T11:40:07-04:00

correct me if i am wrong if i understand correctly then it would be

Code:

regsub {(\\){2}} $txt {\\\\\\\\} ntxt

Code:

string map {\\\\ \\\\\\\\} $arg

the {2} means that it wants exactly 2 matches of \\ to switch with {\\\\\\\\}

cause the other map is doing \ > \\ but if u use \ it wouldn't work so i must use \\ and replace it with \\\\ so this means output \ => \\

if i understand right u are saing \\\\ => \\\\\\\\ out put \\ => \\\\

just verifying if i understand correctly

also

if {[regexp -nocase {(.*?)} $line <---- data2 a b]} {

so if i am supposed to use regsub why u use regexp ?? i mean what is it doing then ? i tought u where replacing chars

Statistics: Posted by Ofloo — Wed Dec 31, 2003 11:40 am

Fetching data from www?

2003-12-31T11:23:26-04:00

if you want to compare string map and re_syntax you would have to use regsub
regexp is used to compare strings and add the matches to different vars
regsub is used to switch bits of strings, they both use re_syntax to achieve this

Code:

string map -nocase {\\ \\\\} $argregsub {(\\){2}} $txt {\\\\\\\\} ntxt

these two would do exactly the same
as you can see you need some \'s to escape the following \'s
the {2} means that it wants exactly 2 matches of \\ to switch with {\\\\\\\\}
you could write it like this:

Code:

regsub {(\\\\)} $txt {\\\\\\\\} ntxt

which is exactly the same as the one above

Statistics: Posted by Papillon — Wed Dec 31, 2003 11:23 am

Fetching data from www?

2003-12-31T09:49:31-04:00

i know its fixed but i am trying to understand the code

if {[regexp -nocase {(.*?)} $line line a b]} {

this part i don't understand

i know string map but never understood regexp realy

like :

Code:

[string map -nocase {\\ \\\\} $arg]

what would this look like ?? in regexp

Statistics: Posted by Ofloo — Wed Dec 31, 2003 9:49 am

Fetching data from www?

2003-12-30T18:57:59-04:00

man i love you!
thx alot

happy new year all

[edit]

Code:

# set this outside the proc, it's saferpackage require httpbind pub - !www www:wwwproc www:www {nick host handle chan text} {        #why setting these here?        set a ""        set b ""        #what you use this for?        set token [http::config -useragent "Mozilla 4.0"]        set url "http://lajt.mine.nu/index.php"        set data [http::geturl $url]        set data2 [http::data $data]        http::cleanup $data        foreach line [split $data2 \n] {          if {[regexp -nocase {(.*?)} $line <---- data2 a b]} {            puthelp "PRIVMSG $chan :$a"          }        } }

Statistics: Posted by t3ch^ — Tue Dec 30, 2003 6:57 pm

Fetching data from www?

2003-12-30T19:02:00-04:00

you need a loop to go through each line..

Code:

# set this outside the proc, it's saferpackage require http bind pub - !www www:www proc www:www {nick host handle chan text} {         #why setting these here?         set a ""         set b ""         #what you use this for?         set token [http::config -useragent "Mozilla 4.0"]         set url "http://lajt.mine.nu/index.php"         set data [http::geturl $url]         set data2 [http::data $data]         http::cleanup $data         foreach line [split $data2 \n] {           if {[regexp -nocase {(.*?)} $line line a b]} {             puthelp "PRIVMSG $chan :$a"           }         }  }

umm... sorry I forgot to change the variable in the regexp, it's fixed now

Statistics: Posted by Papillon — Tue Dec 30, 2003 6:57 pm

Fetching data from www?

2003-12-30T18:35:51-04:00

thx, now i do get some data from www but its not working as i want it to...

My code:

Code:

bind pub - !www www:wwwproc www:www {nick host handle chan text} {        package require http        set a ""        set b ""        set token [http::config -useragent "Mozilla 4.0"]        set url "http://lajt.mine.nu/index.php"        set data [http::geturl $url]        set data2 [http::data $data]        http::cleanup $data        regexp -nocase {(.*?)} $data2 data2 a b        puthelp "PRIVMSG $chan :$a"        regexp -nocase {(.*?)} $data2 data2 a b        puthelp "PRIVMSG $chan :$a"        regexp -nocase {(.*?)} $data2 data2 a b        puthelp "PRIVMSG $chan :$a"}

The page source looks like this:

Code:

Gott Nytt år 2004!

PHP Myadmin
Upload
Movies

Kasta ett e-brev!

I want output to be like:

Code:

phpmyadmin/upload/movies/

But only this get printed:

Code:

phpmyadmin/

Statistics: Posted by t3ch^ — Tue Dec 30, 2003 6:35 pm

Fetching data from www?

2003-12-30T11:46:25-04:00

check out this

Statistics: Posted by Papillon — Tue Dec 30, 2003 11:46 am

Fetching data from www?

2003-12-30T11:34:01-04:00

Can some one give me some dockuments howto fetch data from www or maby even explain a little bit?

i whant to do a tcl script wich get data from a certain page and displays it on irc on a chanel, kinda like !google.

Statistics: Posted by t3ch^ — Tue Dec 30, 2003 11:34 am