• Publicidad

Salto de linea

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Salto de linea

Notapor erturu » 2022-06-03 05:06 @254

Buenas, necesito quitar un salto de linea de un fichero. Sólo sé sustituir un carácter por otro y eso me funciona, pero no sé hacerlo en el mismo fichero, me sale si leo uno y creo otro fichero con la modificación.

Yo hago esto:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1.         my $FichR = $pathDestino."\\".$dsn;
  2.        
  3.         open(FICHERO, '<:encoding(UTF-8)', $FichR) or die "No se pudo abrir el $pathDestino./.$dsn";
  4.         open(SALIDA, ">$pathDestino/$dsn");
  5.                 while ($linea1 = <FICHERO>){
  6.                         $linea1 =~ s/VULKAN/VULKANO/g;
  7.                         print SALIDA $linea1;
  8.                 }
  9.                 close (FICHERO);
  10.                 close (SALIDA);
  11.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

¿Alguna ayuda?

Gracias.
erturu
Perlero nuevo
Perlero nuevo
 
Mensajes: 9
Registrado: 2017-04-21 03:12 @175

Publicidad

Re: Salto de linea

Notapor erturu » 2022-06-06 01:42 @112

Estuve haciendo pruebas y mi problema es aún mayor. He probado con chomp() y chop() y en los dos casos me hace lo mismo: me lo pone todo en una línea salvo la que quiero.

Me explico mejor: Si abro el archivo con el Notepad++ y miro el código del retorno de carro: todos son LF salvo el que quiero corregir que es un CR. El fichero está en formato Unix(LF) / UTF-8.

Con el chop() y chomp() me corrige los LF pero yo quiero corregir solo el LF.

Gracias de antemano.
erturu
Perlero nuevo
Perlero nuevo
 
Mensajes: 9
Registrado: 2017-04-21 03:12 @175

Re: Salto de linea

Notapor erturu » 2022-06-07 06:58 @332

Por si ayuda en algo a ayudarme, lo que tengo que borrar o sustituir es un 0x0D. No sé si hay manera de que vea el fichero de esa forma y modificarlos, porque los saltos de línea me los reconoce como 0x0A.


Gracias.
erturu
Perlero nuevo
Perlero nuevo
 
Mensajes: 9
Registrado: 2017-04-21 03:12 @175

Re: Salto de linea

Notapor explorer » 2023-07-25 18:47 @824

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$texto =~ s/\x0d//g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados