Buscar

2007/02/21

Programa en Perl de Ricardo Galli para la SGAE

Ricardo Galli en su post Programa de Inteligencia Artificial para la SGAE ofrece el siguiente script en Perl:

#! /usr/bin/perl
use LWP::Simple;

$_ = get(shift);
split;
foreach(@_) {
$sgae_index++ if /SGAE/i;
$ladrones_index++ if /ladrones/i;
}
$alert_level = $sgae_index*$ladrones_index;
print "Nivel de alerta: $alert_level\n";
if ($alert_level == 0) {
print "Acción: Sonría, el nombre está bien cuidado\n";
} elsif ($alert_level < 2) {
print "Acción: Llame a El País y solicite una entrevista para acusar a los piratas\n";
} else {
print "Acción: BUROFAX\n";
}
Ya hizo algunas pruebas... y hace minutos acabo de menearlo.

No hay comentarios: