Regexp

[t3ch^]

I got a problem with regexp.

I got this code from a web page:

Code: Select all

<a href="http://uk.weather.yahoo.com/Europe/United_Kingdom/England/">
<a href="http://uk.weather.yahoo.com/UKXX/UKXX0085/index_c.html">

I want to extract:

Code: Select all

UKXX/UKXX0085

But with this regexp:

Code: Select all

regexp -nocase {<a href="http://uk.weather.yahoo.com/(.*?)/index_c.html">} $data data match

My match result is:

Code: Select all

Europe/United_Kingdom/England/">

Full code:

Code: Select all

package require http
bind pub - !weather www:weather
proc www:weather {nick host handle chan text} {
        set query $text
        set data [http::data [http::geturl http://uk.search.weather.yahoo.com/search/weather_ukie?p=$query]]
        regexp {<a href="http://uk.weather.yahoo.com/(.*?)/index_c.html">} $data data match
        puthelp "PRIVMSG $chan :$match"
}

[t3ch^]

I got it working with this:

Code: Select all

regexp {<a href="http://uk.weather.yahoo.com/([a-zA-Z0-9]*)/([a-zA-Z0-9]*)/index_c.html">} $data data match match2

But im not sure of its the right way to do it...
//

[Papillon]

ermm.. the first regexp works fine...
from my tclsh:

% set data "<a href=\"http://ul.weather.yahoo.com/Europe/Unit ... m/England/
\">\n<a href=\"http://uk.weather.yahoo.com/UKXX/UKXX0085/index_c.html\">"
<a href="http://ul.weather.yahoo.com/Europe/Unit ... m/England/">
<a href="http://uk.weather.yahoo.com/UKXX/UKXX0085/index_c.html">
% regexp -nocase {<a href="http://uk.weather.yahoo.com/(.*?)/index_c.html">} $da
ta ble match ;puts $match
UKXX/UKXX0085
%