Desde luego, este codigo puede ser ejecutado desde tu Android Tablet, si cuentas con Androwish.
Al finalizar la ejecucion de este script, se tendran 54 imagenes:
(desde lote01.jpg, hasta lote54.jpg), en el mismo directorio donde este ubicado este script:
console show
#package require Tk
package require http
#package require base64
package require Img
set um [http::geturl http://loteria.elsewhere.org/miniatura/]
set b [split [http::data $um] "\n"]
for {set i 1} {$i<55} {incr i} {
if {$i < 10} {
set ctr "0$i"
} else {
set ctr $i
}
set ln [lsearch -inline -glob $b "*miniatura-${ctr}_298*"]
puts $ln
regexp {^.*src=\"([^"]+)\".*$} $ln --> picurl
http::cleanup $um
set um [http::geturl http://loteria.elsewhere.org$picurl]
set filename "lote$ctr.jpg"
set fd [open [file join [lindex $argv 0] $filename] w]
fconfigure $fd -translation binary -encoding binary
puts $fd [http::data $um]
close $fd
http::cleanup $um
}
