egghelp/eggheads community

handling regular expression

2006-01-27T16:32:21-04:00

all characters under REGULAR EXPRESSION SYNTAX on http://www.tcl.tk/man/tcl8.4/TclCmd/re_syntax.htm must be escaped. Reading the manual usually enligthens .

Statistics: Posted by De Kus — Fri Jan 27, 2006 4:32 pm

handling regular expression

2006-01-23T17:01:24-04:00

Im still messing around with these files.

First script still gives only one result. I only changed the regexp command. Somehow the 2in1 regexp doesn't work anymore. Just no result at all. If I add puthelp command in loop, it doesn't show any result either.

Code:

set url "http://www.starpump.ee/linkme.php"set trigger "!latestposts"set channel "#star"if {![info exists egghttp(version)]} {  putlog "egghttp.tcl was NOT successfully loaded."  putlog "latestposts.tcl has not been loaded as a result."} else {  proc setup {sock} {    global url channel    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]   foreach line [split $body \n]  {    regexp {(.*?)} $line - title    regexp {} $line - link   }    puthelp "PRIVMSG $channel :$title - $link "  }  bind pub -|* $trigger action  proc action {nick host hand chan text} {    global url    set sock [egghttp:geturl $url setup]    return 1  }  putlog "latestposts.tcl has been successfully loaded."}

If puthelp command is in the loop also, it doesn't reply anything.

Statistics: Posted by rix — Mon Jan 23, 2006 5:01 pm

handling regular expression

2006-01-16T22:02:07-04:00

My best guess would be that it was being treated as a special character, and you would thus need to quote it ... \?

Statistics: Posted by Ehlanna — Mon Jan 16, 2006 10:02 pm

handling regular expression

2006-01-16T14:28:32-04:00

Big thanks, guys!

I hope I'm not too arrogant when asking another thing.

I have another script based on same structure, but it doesn't recognize the "?" in the url. It's important, as channel= will give appropriate feed. It's weird, cause other scripts are doing well. :S

Code:

set feed "http://www.w3.ee/export/tv.php?channel=2"set trigger "!kanal2"set channel "#star"if {![info exists egghttp(version)]} {  putlog "egghttp.tcl was NOT successfully loaded."  putlog "tv2.tcl has not been loaded as a result."} else {  proc callback{sock} {    global feed channel    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]   foreach line [split $body \n] {    regexp {(.*?)} $body - time    regexp {(.*?)} $body - title    regexp {.*?
(.*?)
} $body - desc   }   puthelp "PRIVMSG $channel :(Algus: $time) \002$title\002"   puthelp "PRIVMSG $channel :$desc"  }  bind pub -|* $trigger top:trigger  proc top:trigger {nick host hand chan text} {    global feed    set sock [egghttp:geturl $rssfeed callback]    return 1  }  putlog "tv2.tcl has been successfully loaded."}

It takes information from w3.ee/export/tv.php though it should take it from w3.ee/export/tv.php?channel=2.

Statistics: Posted by rix — Mon Jan 16, 2006 2:28 pm

handling regular expression

2006-01-12T20:51:05-04:00

probably too faithfully pasting

Wood/trre syndrome, far too easy to suffer from!

Statistics: Posted by Ehlanna — Thu Jan 12, 2006 8:51 pm

handling regular expression

2006-01-12T08:04:06-04:00

I would say that you want to swap $body to $line in the regexp command as $line is the variable that changes with each iteration of the loop.

lol, beat why I didnt notice that myself, was probably too faithfully pasting together .

Statistics: Posted by De Kus — Thu Jan 12, 2006 8:04 am

handling regular expression

2006-01-11T18:48:24-04:00

At a rough guess, and speaking as a self-taught , beginner tcl coder, I would say that you want to swap $body to $line in the regexp command as $line is the variable that changes with each iteration of the loop.

Statistics: Posted by Ehlanna — Wed Jan 11, 2006 6:48 pm

handling regular expression

2006-01-09T14:04:24-04:00

The speed is not important at the moment. By the way, I merged 2regexp into 1 and included puthelp right after regexp in the loop, but it keeps repeating one result. :s

[20:01:10] !latestposts
[20:01:13] Q: DVD subtiitrid - http://www.starpump.ee/viewthread.php?tid=29612
[20:01:15] Q: DVD subtiitrid - http://www.starpump.ee/viewthread.php?tid=29612
[20:01:17] Q: DVD subtiitrid - http://www.starpump.ee/viewthread.php?tid=29612
...and so on

How do I avoid that?

Statistics: Posted by rix — Mon Jan 09, 2006 2:04 pm

handling regular expression

2006-01-09T11:54:45-04:00

include 'puthelp "PRIVMSG $channel :$title - $link "' in the foreach loop.

btw you can merge the 2 regexp into 1:
regexp {([^<]+)} $body {} link title

Note: I assumed the missing space in the expression was an error. And I usually prefer something like [^<] to . because regexp tries to find the widest match, but you dont want the match to pass the closing Statistics: Posted by De Kus — Mon Jan 09, 2006 11:54 am

handling regular expression

2006-01-08T17:28:10-04:00

Okay, I did a little research again and got it working. Just one thing more. It shows only one (first) result. How do i loop this thingie?

Code:

set url "http://www.starpump.ee/linkme.php"set trigger "!latestposts"set channel "#star"if {![info exists egghttp(version)]} {  putlog "egghttp.tcl was NOT successfully loaded."  putlog "latestposts.tcl has not been loaded as a result."} else {  proc setup {sock} {    global url channel    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]   foreach line [split $body \n] {    regexp {(.*?)} $body - title    regexp {} $body - link   }    puthelp "PRIVMSG $channel :$title - $link "  }  bind pub -|* $trigger action  proc action {nick host hand chan text} {    global rssfeed    set sock [egghttp:geturl $url setup]    return 1  }   putlog "latestposts.tcl has been successfully loaded."}

Thanks!

Statistics: Posted by rix — Sun Jan 08, 2006 5:28 pm

handling regular expression

2006-01-08T10:12:32-04:00

Read TCLCommands.doc, section "BIND" especially for DCC and PUB. Its not up to, it must match exactly (well, actually there are workarounds, but they should be only used if dynamic is requried).
Tip: you will probably NOT want to output unfiltered regexp -all output.

Statistics: Posted by De Kus — Sun Jan 08, 2006 10:12 am

handling regular expression

2006-01-07T11:50:48-04:00

Use http package

Statistics: Posted by avilon — Sat Jan 07, 2006 11:50 am

handling regular expression

2006-01-07T11:10:44-04:00

Hey!

Im new to this, so I try to make myself clear as possible. I need to take url and text from this link and show them in the channel.

I tryed something like this:

Code:

set url "http://www.starpump.ee/linkme.php"if {![info exists egghttp(version)]} {  putlog "egghttp.tcl was NOT successfully loaded."  putlog "lasttopics.tcl has not been loaded as a result."} else {  proc your_callbackproc {sock} {    global url    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]    foreach line [split $body \n] {      regexp -all {(.*?)} $line text    }    putserv "PRIVMSG $chan : $text  }  bind pub - !lasttopics our:dcctrigger  proc our:dcctrigger {hand idx text} {    global url     set sock [egghttp:geturl $url your_callbackproc]    set chan #star    return 1  }    putlog "egghttp_example.tcl has been successfully loaded."}

It gives error: Tcl error [our:dcctrigger]: called "our:dcctrigger" with too many arguments. I thought I can even use 5 arguments in the brackets.

Anyway, there's enough tutorials saying what to do. Yes, that's good. The one major problem is that i can't find any instructions how to turn it to actually working script.

Statistics: Posted by rix — Sat Jan 07, 2006 11:10 am