#! /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.
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:
No hay comentarios:
Publicar un comentario