----- Original Message ----
> From: PEGG <[email protected]>
> To: Lista de correo de Madrid Perl Mongers <[email protected]>
> Sent: Mon, March 29, 2010 10:49:16 AM
> Subject: [Madrid-pm] Eliminar las stopwords de un texto
>
Tu problema es que en @words estas metiendo lineas, no palabras. Prueba lo
siguiente:
use Lingua::EN::StopWords qw(%StopWords);
open(TEXTO,"contenido.txt");
my @words = map /\w+/g, <TEXTO>;
print join " ", grep { !$StopWords{$_} }
- Salva
_______________________________________________
Madrid-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/madrid-pm
