[Madrid-pm] Eliminar las stopwords de un texto

[Salvador Fandino]

----- Original Message ----
> From: PEGG <preiddy en gmail.com>
> To: Lista de correo de Madrid Perl Mongers <madrid-pm en pm.org>
> 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