dollar tcl, small error

[testebr]

Code: Select all

bind pub - !dollar dollar
package require http 2.3
proc dollar {n u h c a} {
set ID [::http::geturl http://www.bc.gov.br/htms/infecon/taxas/taxas.htm -timeout 10000]
set X [split [::http::data $ID] \n]
::http::cleanup $ID
regexp {([0-9],[0-9]{4}).*([0-9],[0-9]{4})} $X Z AZ BZ
putserv "PRIVMSG $c :Taxa de compra $AZ / Taxa de venda $BZ"
}

Tcl error [dollar]: can't read "AZ": no such variable

How to fix it?

[Sir_Fz]

Perhaps you meant

Code: Select all

regexp {([0-9],[0-9]{3}).*([0-9],[0-9]{3})} $X Z AZ BZ

as there are only 3 digits after the comma and not 4.

[testebr]

thanks, my fault.