Foro - Perl en Español

Buenos días,

A ver, tengo un fichero con un texto en una variable y necesito pasarlo al formato de una palabra por línea. Concretamente, necesito cada palabra y cada signo de puntuación en una línea distinta,

alguna ayudita? gracias de antemano!

Con el codigo éste. me da un error: dice que a la línea del Chomp sólo tengo permisos de lectura -read only value attempted

Código: Seleccionar todo

sub tractarCorpus
   {
   print "entro a tractarCorpus\n";
      # Bucle por todo(g) el texto,
      # recolectando conjuntos de palabras (\w+) y no palabras (\w+)
      while ( $corpus =~ /(\w+|\W+)/g )
         {
         chomp $1;               # Quitamos los retornos de carro
         print "$1\n"            # Pintamos el conjunto
            unless $1 =~ /\s+/; # siempre y cuando no sea espacio en blanco
         }

}

Antes de esto solo he hecho:

Código: Seleccionar todo

sub openFile
{
   open my $file, '<', "entrada.txt" or die("No se pudo abrir archivo");
   $corpus = do
      { local $/; <$file>
      };
   close $file;
}

$nomentrada ="entrada.txt"
&openFile($nomentrada);
#print "el corpus es $corpus\n";


&tractarCorpus($corpus);

gracias!!

Hola:

No es buen hábito de programación intentar hacer modificaciones con las variables especiales $1,$2,$3, etc pues recuerda que estás pueden cambiar en cualquier momento.

Tu código lo pondría como:

Código: Seleccionar todo

sub tractarCorpus
   {
   print "entro a tractarCorpus\n";
      # Bucle por todo(g) el texto,
      # recolectando conjuntos de palabras (\w+) y no palabras (\w+)
      while ( $corpus =~ /(\w+|\W+)/g )
         {
         my $valor = $1; #Recolectamos inmediatamante $1
         chomp $valor;               # Quitamos los retornos de carro
         next if $valor =~ /\s+/; # siempre y cuando no sea espacio en blanco

         print "$valor\n";            # Pintamos el conjunto
         }

}


Saludos

Ok, una última cuestión: desde dentro de la función, puedo hacer una pipe y copiar las palabras en éste nuevo formato (de un token por línea) a la variable $corpus ?

gracias!

Antes del bucle creas una nueva variable.
my $salida = '';
Dentro del bucle, por cada iteración, agregas $valor a la $salida:
$salida .= "$valor\n";
Al final del bucle, copias una variable en otra:
$corpus = $salida;