062-066PerlLM45

DESARROLLO • Perl: Amtrack
Un script Perl que vigila precios de Amazon
CAZA
GANGAS
Si eres un caza gangas es probable que te guste este script Perl que monitoriza la evolución de los precios en
Amazon y nos alerta si los baja súbitamente en productos por los que nos hemos interesado.
POR MICHAEL SCHILLI
¿Debería comprar esa cámara digital
a la que he echado el ojo
recientemente? ¿O debería esperar
a que bajara un poco de precio? Estas
preguntas son difíciles de contestar, pero
un vistazo a la evolución de los precios
en los meses anteriores puede indicarnos
qué camino pueden tomar esos precios.
Historial de Precios
Si Amazon ofreciese un historial de precios
para sus productos, de manera similar
a la evolución del precio de las acciones
en las páginas de finanzas, los clientes
podrían disgustarse al descubrir que
han desaprovechado oportunidades. O
podrían llegar a la conclusión de que los
precios van a seguir cayendo y esperar
un momento mejor para comprar. La
famosa tienda online no ofrece este servicio,
así que tendremos que desarrollarlo
nosotros mismos.
Precios a la Vista
El script que vamos a ver, amtrack, parsea
un archivo de configuración
~/.amtrack-rc, parecido al de la Figura
1, para encontrar los productos que
quiere el usuario. Un cronjob llama al
script a intervalos periódicos. Cada vez
que el script conecta con el servicio Web
de Amazon, consulta los precios de los
artículos señalados y los guarda en una
base de datos SQLite local.
Si el precio de un producto cae, el
script envía un correo electrónico con la
URL del producto y el precio a la dirección
configurada en la línea 79 . Lo único
que le resta por hacer al caza gangas es
pulsar la URL en el cliente de correo,
echarle otro vistazo al producto en el
navegador, y en su caso, cazarlo al
vuelo.
Debido a que los precios se
guardan de forma local en una
base de datos, el script puede
solicitar y mostrar información
del histórico al momento. Una
llamada a amtrack -l devuelve
los últimos precios de todos los
productos monitorizados (véase
la Figura 2). Si estamos interesados
en el contenido completo
de la base de datos podemos
62 Número 45 43 WWW.LINUX- MAGAZINE.ES
activar el flag -a , pero tenga en cuenta
que probablemente se mostrará un montón
de información si ha estado monitorizando
precios desde hace tiempo y ha
vigilado diferentes productos.
Cuando se ejecuta sin ninguna opción
en línea de comandos, amtrack realiza
su trabajo mediante los atajos definidos
en el archivo de configuración ~/
.amtrack-rc y actualiza la base de datos
con los últimos precios.
Lista de Deseados
El archivo de configuración tiene dos
columnas. La primera contiene el
Figura 1: El archivo de configuración ~/.amtrack-rc lista
los productos especificados y sus números ASIN.
Vasiliy Yakobchu, Fotolia

Figura 2: Cuando se llama con la opción -l, el script
amtrack lista los precios actuales de todos los productos
que está vigilando.
Figura 3: La base de datos SQLite también puede consul-
tarse con el cliente en línea de comandos sqlite3.
número ASIN del producto en cuestión,
con una breve descripción a su derecha,
separado por uno o varios espacios en
blanco. Esto no tiene ninguna influencia
en la base de datos, pero hace que la
alerta por correo electrónico sea más
fácil de leer.
Las líneas de comentario comienzan
con el símbolo de almohadillas (#), y el
script las ignora, al igual que ignora los
espacios en blanco. La función
config_read() (Listado 1, líneas 91-111)
carga la configuración y devuelve dos
referencias: una al array ordenado @config,
y la otra al hash %config . El array
contiene parejas de ASIN y valores de
texto, mientras que el hash mapea directamente
las ASINs a los textos para
poder buscarlas rápidamente.
Oportunidades
El módulo Net::Amazon de CPAN proporciona
una interfaz orientada a objetos
al web service (basado en RESR) de
Amazon. Si introducimos el número
ASIN del producto, el módulo contacta
con Amazon y recupera el precio.
Cuando comenzó, Amazon sólo vendía
libros, que podían ser identificados
de manera unívoca por sus números
ISBN. A medida que el catálogo de productos
creció, añadió el número ASIN,
que tiene una estructura similar pero
también incluye letras, y de esta manera
es capaz de direccionar muchos más productos.
El método request() de la clase
Net::Amazon acepta un objeto Net::Ama-
zon::Re-quest::ASIN con parámetros
que incluyen el
número ASIN de un producto.
Tras hacer esto, controla las
comunicaciones con la página
web de Amazon y devuelve un
objeto de clase Net::Amazon::Response::ASIN.
La propiedad
is_success() del objeto
nos indica si la petición ha
tenido éxito. En este caso, el
método properties() devuelve
un único objeto de clase
Net::Amazon::Property que
contiene el producto coincidente,
incluida una descripción
del producto, puntuación
de los clientes, URL a las imágenes,
y mucho más, incluyendo
precio. Amazon ofrece
diferentes opciones de búsqueda
(por autor por ejemplo), por lo
que properties() también puede devolver
múltiples entradas. El método OurPrice()
de una propiedad devuelve el precio
actual de un producto en formato $X.XX,
£X.XX (para Reino Unido) o EUR X,XX
(para otras ubicaciones europeas: ver
más abajo).
Caché del Histórico
El script también se apoya en el módulo
Cache::Historical de CPAN, que no sólo
guarda información bajo un índice primario,
como cualquier caché normal,
sino que también inserta una fecha que
usa como índice secundario. El script
guarda los precios de los productos,
con el ASIN como
índice primario, y guarda la
información recuperada en la
caché. Tras el escenario,
Cache::Historical se apoya en
una base de datos SQLite
basada en archivo, listada por
el módulo como requerimiento,
y que también instala
gracias a la cobertura de 10$.
CPAN. El parámetro sqlite_file
del constructor new() fija el
nombre del archivo
~/.amzn-tracker-sqlite en el
cual se deposita la base de
datos. Si así lo queremos,
podemos consultar la base de
datos SQLite con el programa
cliente sqlite3 para ver la
información, como muestra la
Figura 3.
WWW.LINUX- MAGAZINE.ES
Perl: Amtrack • DESARROLLO
La llamada get_interpolated() de la
caché recupera el valor de una fecha
concreta desde la base de datos (la fecha
actual en el script) y una clave específica
(el ASIN de un producto). El script
guarda esto en la variable $last_price, y
entonces actualiza la base de datos con
el último valor de la página Web de
Amazon. Tras hacer esto, recupera el
precio actual desde la base de datos nuevamente
y la compara con $last_price.
Por contra, el método values()
devuelve una lista de parejas de valores
que coinciden con la clave especificada.
Cada pareja es una referencia a un array
que contiene la fecha como un objeto
DateTime y el precio.
Do What I Mean
Si el precio actual de un producto bajo
supervisión es menor que el último precio
guardado en la base de datos, el
script genera un correo electrónico en la
línea 78 (Figura 4). A pesar de que
muchos módulos de CPAN pueden
enviar correos electrónicos, Mail::DWIM
(Do What I Mean) es uno de los más
sencillos: exporta la función mail(), que
acepta un destinatario, una línea de
asunto, y el cuerpo de texto del correo
electrónico como parámetros. Configura
valores por efecto con sentido para el
resto de parámetros, como el remitente o
el trasporte del correo electrónico (en
este caso, el usuario activo más el dominio
configurado y el demonio activo
Sendmail). En cuanto a otros mecanis-
Figura 4: Llegada de un correo electrónico que anuncia
que el precio del robot aspiradora Roomba [4] ha bajado
Figura 5: Configuración de Log4perl para el script.
Número 45
63

DESARROLLO • Perl: Amtrack
mos de transporte de correo electrónico,
también soporta SMTP especificando el
host. Estos valores por efecto se fijan
como parámetros en el archivo local
.maildwim. Para más detalles acerca de
esto, sólo tiene que leer la página man
Mail::DWIM.
El correo electrónico también contiene
la URL del producto, que se consigue
añadiendo /dp/$asin a la URL base de la
página web de Amazon.
Logueo Profesional
Para mantener al usuario al corriente de
lo que está haciendo el script se usa
Log4perl para registrar sus actividades.
El archivo amtrack.l4p, inicializado por
Log4perl, se guarda en el mismo directorio
que el script (Figura 5). Para permitir
al script que encuentre el archivo de
001 #!/usr/bin/perl -w
002 use strict;
003 use Getopt::Std;
004 use Net::Amazon;
005 use
Net::Amazon::Request::ASIN;
006 use Log::Log4perl qw(:easy);
007 use Cache::Historical 0.02;
008 use DateTime;
009 use Mail::DWIM qw(mail);
010 use FindBin qw($Bin);
011
012 my ($home) = glob “~”;
013 my $amzn_rc =
014
015
016
“$home/.amtrack-rc”;
Log::Log4perl->init(“$Bin/amt
rack.l4p”);
017 my $cache =
Cache::Historical->new(
018 sqlite_file =>
019 “$home/.amtrack-sqlite”
020 );
021
022 my $UA = Net::Amazon->new(
023 token =>
‘YOUR_AMZN_TOKEN’,
024 # locale => ‘uk’,
025 );
026
027 my($config, $txt_by_asin) =
028
config_read();
029 getopts(“al”, \my %opts);
configuración, incluso si se le llama
desde un directorio diferente (por ejemplo,
bin/amtrack o amtrack desde el
directorio de usuario), el módulo Find-
Bin nos ayuda a exportar la variable $Bin
como directorio donde se encuentra el
script, asegurando de esta manera que
$Bin/amtrack.l4p representa la ruta
absoluta a la configuración de Log4perl.
La configuración de Log4perl no es
precisamente sencilla. Después de todo,
queremos que el script escriba sus actividades
normales en el archivo de log
(Figura 6) y muestre los errores en la
consola.
Se llama a un cronjob a intervalos
regulares para añadir información en el
archivo de registro (por defecto), pero se
enviarán los errores (como una conexión
fallida de red) a STDERR, y esto provoca
Listado 1: amtrack
64 Número 45 WWW.LINUX- MAGAZINE.ES
030
031 if($opts{l} or $opts{a}) {
032 for my $key (sort keys
%$txt_by_asin) {
033 my $txt =
$txt_by_asin->{$key};
034 for my $val
($cache->values( $key )) {
035 my($dt, $price) =
@$val;
036 print “$dt $txt
$price\n”;
037 last if $opts{l};
038 }
039 }
040 } else {
041 update($config);
042 }
043
044 ####################
045 sub fix_price {
046 ####################
047 my($price) = @_;
048
049 if(defined $price) {
050 $price =~ s/[^\d]//g;
051 $price =~
s/..$/.$&/g;
052 }
053 return $price;
054 }
055
056 ####################
057 sub update {
058 ####################
059 my($config) = @_;
que cron, que inició el script, envíe un
correo electrónico al administrador.
Se define un único usuario registrado
para la categoría main (es decir, para el
programa principal). Net::Amazon también
permite Log4perl, y otra entrada en
el archivo de configuración mostrará
rápidamente los detalles de las comunicaciones
con el servidor Web de Amazon
por pantalla. El usuario main controla
dos appenders: Logfile y Screen. Para
asegurarnos de que Screen sólo recibe
mensajes con prioridad ERROR superior,
la línea
log4perl.appender.Screen.U
Threshold = ERROR
configura este umbral en la definición
del appender.
060
061 for my $line (@$config) {
062
063 my($asin, $txt) = @$line;
064 my $now =
065
DateTime->now();
066 my $last_price =
067
068
fix_price($cache->
get_interpolated($now,
$asin));
069 track($asin, $txt,
070
$cache);
071 my $price_now =
072
073
fix_price($cache->
get_interpolated($now,
$asin));
074 if(defined $last_price
and
075 defined $price_now) {
076
077 if( $price_now <
$last_price) {
078 mail(
079 to =>
‘foo@bar.com’,
080 subject =>
“[amtrack] “ .
081 “$txt cheaper
($price_now < “ .
082 “$last_price)”,

DESARROLLO • Perl: Amtrack
083 text => “URL: “
084
.
“http://amazon.com/dp/$asin”,
085 );
086 }
087 }
088 }
089 }
090
091 ####################
092 sub config_read {
093 ####################
094
095 my @config = ();
096 my %config = ();
097
098 open AMZNRC, “$amzn_rc”
or
099 die “Cannot open
$amzn_rc”;
100 while() {
101 s/#.*//;
102 next if /^\s*$/;
En caso de que queramos aprender
más acerca del entorno de trabajo
Log4perl, podemos visitar la página Web
de Log4perl [2], que tiene una documentación
exhaustiva y una FAQ con configuraciones
frecuentes a modo de ejemplo.
No sin Mi Token
Amazon requiere un token para los
scripts que estén trabajando con su web
service. El token está a libre disposición
de cualquiera que se registre y acepte
las condiciones [3]. Tras recibirlo, sólo
tenemos que remplazar
YOU_AMZN_TOKEN de la línea 23 con
el token correcto.
El script funcionará con la página
Web de Estados Unidos o con la de
cualquier otro país, como puede ser la p
del Reino Unido. Para esta última, sim-
Listado 1: amtrack (Continuación)
103 chomp;
104 my($asin, $txt) =
split ‘ ‘, $_, 2;
105 push @config, [$asin,
$txt];
106 $config{ $asin } =
$txt;
107 }
108 close AMZNRC;
plemente tenemos que descomentar
locale => ‘uk’ en la línea 24.
Para otros países europeos, los precios
debería mostrarse en formato EUR X,XX,
pero la función fix_price los convierte a
un formato en punto flotante adecuado,
que podemos comparar con el uso de
operaciones matemáticas.
Como las cifras en Estados Unidos usan,
para el punto flotante, tanto un punto
como comas para separar los miles,
fix_price() simplemente desecha todo lo
que no es un dígito e inserta el punto decimal
delante de los últimos dos dígitos.
Instalación
Un shell de CPAN instala los módulos de
CPAN especificados al comienzo del
script, y resuelve inmediatamente todas
las dependencias al mismo tiempo.
Una entrada crontab con el formato
230***
/path/to/amtrack
llama al script una vez al día,
23 minutos después de medianoche.
Esto debería ser más
que suficiente para mantenernos
al día. El módulo
Net::Amazon se asegura de
66 Número 45 WWW.LINUX- MAGAZINE.ES
109
110 return \@config,
111 }
112
\%config;
113 ####################
114 sub track {
115 ####################
116 my($asin, $txt, $cache) =
117
@_;
118 INFO “Tracking asin $asin”;
119
120 my $req =
121
Figura 6: Fragmento del archivo de log tras una ejecución
exitosa del script.
Net::Amazon::Request::ASIN->n
ew(
122 asin => $asin);
123
124 my $resp =
125
$UA->request($req);
126 if($resp->is_success()) {
127 my($prop) =
$resp->properties();
128 my $price =
$prop->OurPrice();
129 INFO “Tracking $asin “,
130 “($txt): $price”;
131
$cache->set(DateTime->now(),
132 $asin,
$price) if $price;
133 } else {
134 ERROR “Can’t fetch asin
$asin: “,
135 $resp->message();
136 }
137 }
que el script mantiene las condiciones de
uso de Amazon, e impone limites si el
usuario recupera precios a intervalos
muy cortos.
Mejoras
Para mejorar el script podríamos asignar
un límite para cada precio en el archivo
de configuración e indicar al script que
no nos notifique a menos que el precio
baje por debajo de este valor. Otra aplicación
podría ser dibujar un gráfico de
los cambios en el precio en un período
de tiempo. Los módulos RRDTool::OO o
Imager::Plot de CPAN serían perfectos
para este propósito. ■
RECURSOS
[1] Listados de este artículo: http://
www.linux-magazine.es/Magazine/
Downloads/45
[2] Log4perl homepage: http://
log4perl.com
[3] Los tokens de Amazon Web Services
están disponibles en: http://
www.amazon.com/soap
[4] El robot aspirador Roomba: http://
www.amazon.com/
iRobot-Roomba-Intelligent-Floorva
c-Robotic/dp/B00008439Y