regexp problem

[w0t]

hi,

i've problem with this piece of code

Code: Select all

set line "user last seen 6hrs 7mins ago"
set wrd "ago"
regexp { ([0-9].*) $wrd} $line garbage theTime

$theTime are always empty

[egghead]

set line "user last seen 20wks 6hrs 7mins ago"
set regrule {user last seen (.*) ago}
regexp $regrule $line garbage theTime
puts $theTime