Foro - Perl en Español

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

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í:

1. Leemos todo el fichero en una variable escalar
2. Del fichero leído, quitamos todos los finales de línea que contenga, pues no nos sirven
3. 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
4. Sacamos el fichero resultado

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

Si te ves muy perdido, avísanos.

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.

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

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

Es justo lo que estaba pensando

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í:



Prueba que pasa si haces algo así:



Jenda

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:



¡¡¡Saludos!!!