Parse url from web content

[Elfriede]

Hopefully someone can tell me whats wrong on that. Im going to parse a url out of a webpage, but all i got is Data: many times ^^ Ive searched alot on this Forum, but im not getting the point, how to parse :/ I just wanna output the first matching url.

Code: Select all

bind pub - !geturl geturl:proc
proc geturl:proc {nick host handle channel text} {
	set url [lindex $text 0]
	set token [::http::geturl $url]
	set content [::http::data $token]
	::http::cleanup $content
	foreach line [split $content \n] {
		if {[regexp -nocase {http(.*?)} $content match url]} {
			sendmsg #test "Data: [join $url]"
		}
	}
}

[nml375]

Try using the greedy quantifier * instead of the non-greedy *?
Also, the output is most likely not a list, so don't use join. Similarly, $text is a string, not a list, so use split before attempting to use lindex:
Next, use $line, not $content in your regular expression, otherwize the foreach loop would be pretty pointless...

Code: Select all

bind pub - !geturl geturl:proc
proc geturl:proc {nick host handle channel text} {
   set url [lindex [split $text] 0]
   set token [::http::geturl $url]
   set content [::http::data $token]
   ::http::cleanup $content
   foreach line [split $content \n] {
      if {[regexp -nocase {http(.*)} $line match url]} {
         sendmsg #test "Data: $url"
      }
   }
} 

[Elfriede]

Many thanks for ur answer, but the output looks atm like:

Data: ://imdb.de/title/... Û

The http is cutted and theres a space after the url, where the output should end - can u please add that ?

PS: how to stop eg on first match ? ^^

[nml375]

If you want the full line matching the url, please use $match instead of $url in your sendmsg command.

To stop further processing within the foreach-loop, use the break command just after the sendmsg command.

[Elfriede]

Many thanks!!! Now its working, like ive wanted it