Foro - Perl en Español

por **guillermelc** » 2007-11-13 13:27 @602

Hola chicos/as
Lo primero de todos es agradeceros por adelantado la respuesta.
Mi duda es muy simple(el problema es que no se me da muy bien la programación)

Tengo un fichero de texto como por ejemplo este sencillo:

Código: Seleccionar todo: Hola a todos.Me llamo Guillermo. Me gusta el cine.También la música & los videojuegos. Tengo 25 años. Gracias.Saludos.

Quiero separar cada frase (por punto "." y también por "&" )

Quedándome:

Código: Seleccionar todo: Hola a todos. Me llamo Guillermo. Me gusta el cine. etc etc

Éste es mi código (está en fase de pruebas, pero nada, no hay manera...)
Gracias de nuevo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

open(F,'prueba.txt');#||die "Error al abrir fichero $prueba:$!;
open(F2,'>pruebasalida.txt');#||die "Error al abrir fichero $prueba:$!;
$linea='';
while(<F>){
if(/abc.*/)
{
printf$linea;
printf F2 $lineaif$linea;
$linea=$_;

}
# elseif ( /claimed/ )
#{
#print F2 $linea if $linea;
#$linea= '';
#}
}


print F2 $lineaif$linea;
close F;
close F2;Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Bienvenido a los foros de Perl en Español, guillermelc.

Veo que tu código lo has copiado de un ejemplo reciente, de otro hilo.

Lamentablemente, aunque muchas veces se puede resolver un problema con la estrategia de probar y fallar, no siempre resulta adecuada. Las posibilidades pueden ser astronómicas, antes de encontrar la respuesta.

Debes tener claro el problema y tener un poco de conocimiento del lenguaje que vas a usar.

Esto es como construir una casa: cuantas más formas distintas de ladrillos conozcas más rápidamente y bonita quedará terminada la casa.

¿Qué tal tu nivel de Perl?

¿Qué intentabas hacer con /abc./?

Para tu problema, yo usaría expresiones regulares. Lo resolvería así:

Leemos todo el fichero en una variable escalar
Del fichero leído, quitamos todos los finales de línea que contenga, pues no nos sirven
Buscamos los caracteres que nos interesan (. y &) y los sustituimos por ellos mismos más un carácter fin de línea. Así tendremos las líneas partidas por esos caracteres
Sacamos el fichero resultado

Vamos, en 10 líneas se puede resolver (utilizando Perl, claro).

Si te ves muy perdido, avísanos.

por **guillermelc** » 2007-11-13 16:17 @720

Hola Explorer & Cia
Muchas gracias por el consejo, la verdad es que me esta sirviendo de mucho.

He construido un nuevo programa siguiendo tus pautas y he realizado uno que se parece bastante al que quiero conseguir.

Mi único problema es que "sólo" me cambia el primer "." por un retorno de carro y de los siguientes que tenga en una misma frase pasa olímpicamente.

Ejemplo:

Código: Seleccionar todo: Hola a todos.Me llamo Guillermo.Me gusta el cine.

Lo convierte a:

Código: Seleccionar todo: Hola a todos Me llamo Guillermo.Me gusta el cine.

He probado con * etc etc y ya no sé si será un problema de mi bucle while...

Muchas gracias de nuevo.
En cuanto lo tenga resuelto lo cuelgo por si le es de ayuda a alguien.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
open(F,'prueba.txt');
open(F2,'>pruebasalida.txt');

while($linea=<F>)
#en $linea voy a tener la primera linea del texto,luego la 2,la 3...
{
$linea=~s/\./\n/;
#cambio el caracter'.'que aparece en una linea alfanumerica por un retorno de carro
printf F2 $lineaif$linea;
}

close(F);
close(F2);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2007-11-13 17:42 @779

Te falta añadir la opción /g para que ese cambio lo haga a lo largo de toda la línea.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$linea=~s/\./\n/g;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Norther** » 2007-11-13 17:57 @789

explorer escribiste:Veo que tu código lo has copiado de un ejemplo reciente, de otro hilo.

Es justo lo que estaba pensando

por **Jenda** » 2007-11-13 18:51 @827

guillermelc escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting

#!/usr/bin/perl

open (F,'prueba.txt'); #||die "Error al abrir fichero $prueba:$!;
open (F2,'>pruebasalida.txt'); #||die "Error al abrir fichero $prueba:$!;
$linea ='';
while( <F> ){
if ( /abc.*/)
{
printf $linea;
printf F2 $linea if $linea;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¡Por favor, no uses printf() si no lo vas a necesitar! El primer parámetro de la función printf() es el formato. Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

printf"El precio de %s es %.2f.\n",$cosa,$precio;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Prueba que pasa si haces algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$linea="Dady dady da 10% datos ...";
printf$linea;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Jenda

por **guillermelc** » 2007-11-15 12:06 @546

Hola a todos.

Bueno, pues como veis, al final con vuestra ayuda logré terminar esta primera práctica. (Vista así, ahora me parece muy fácil... jejeje)

Así que lo primero de todo es deciros...

MUCHAS GRACIAS

Jenda, probé las diferencias existentes entre printf y print normal.

Es que como soy "principiante" creí que era lo mismo.

La modifiqué para que también sustituya caracteres especiales como ?:!, etc por "retornos de carro".

La cuelgo por si le sirve a alguien:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
open(F,'prueba.txt');
open(F2,'>pruebasalida.txt');

while($linea=<F>)
#en $linea voy a tener la primera línea del texto,luego la 2,la 3...
{
$linea=~s/[\.\!\?\:]/\n/g;
#cambio el carácter los caracteres correspondientes que aparece en una linea alfanumérica             por un retorno de carro,para dividir los párrafos como me piden
print F2 $lineaif$linea;
}

close(F);
close(F2);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡¡¡Saludos!!!

Foro - Perl en Español

Separar texto por párrafos

Separar texto por párrafos

Publicidad

Re: Separar texto por párrafos

¿Quién está conectado?