elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [PERL]script corrompe archivo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [PERL]script corrompe archivo  (Leído 2,820 veces)
z_ane_666

Desconectado Desconectado

Mensajes: 64


Ver Perfil
[PERL]script corrompe archivo
« en: 22 Junio 2013, 08:08 am »

Este script ,(que es parte de uno mas completo) lee un archivo y luego procede a almacenarlo en un archivo llamado "salida"

Código:
#!/usr/bin/perl -w
use File::Slurp;
my $file_contents = read_file($ARGV[0]);
open my $filehand, ">","salida";
print $filehand $file_contents;
close $filehand;

el problema es que el archivo final no es identico al original, se imprimen unos caracteres "0D" adicionales a lo largo del archivo salida, ¿que podria hacer?


En línea

explorer

Desconectado Desconectado

Mensajes: 102


Analista/Programador Perl


Ver Perfil
Re: [PERL]script corrompe archivo
« Respuesta #1 en: 23 Junio 2013, 14:34 pm »

Los caracteres '0D' podrían ser los caracteres de Retorno de carro, en el sistema operativo Windows, o Nueva línea, en los Mac OS.

El programa hace una copia literal del archivo, así que los caracteres '0D' deberías verles también en el archivo original.

Si solo quieres eliminar los caracteres '0D', lo que puedes hacer es filtrarles:

Código
  1. $file_contents =~ s/\0x0D//g;

Pero lo mejor sería saber el formato del archivo de origen, para hacer una conversión más correcta.

Saludos desde Perl en Español.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con script de Perl
Scripting
stres 0 3,775 Último mensaje 26 Mayo 2004, 07:15 am
por stres
Mi Script de Perl y Mysql :(
Scripting
^Tifa^ 0 2,051 Último mensaje 14 Diciembre 2007, 14:53 pm
por ^Tifa^
Script en Perl no me arranca « 1 2 »
Scripting
BenRu 11 5,793 Último mensaje 7 Agosto 2008, 19:32 pm
por Tec-n0x
[Problema]Con script en perl. « 1 2 »
Scripting
PHAMTOM 10 6,886 Último mensaje 8 Marzo 2010, 21:26 pm
por ~ Yoya ~
ayuda con un script en perl
Scripting
cuenta.net 0 1,629 Último mensaje 31 Octubre 2011, 22:45 pm
por cuenta.net
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines