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

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Ayuda con "read" y "seek" en perl
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con "read" y "seek" en perl  (Leído 3,772 veces)
jankoitt

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Ayuda con "read" y "seek" en perl
« en: 4 Abril 2011, 23:06 pm »

Saludos, estoy haciendo una aplicacion en la cual estoy manejando archivos, necesito sacar unos datos desde una posicion en especifica hacia atras. Para ello estoy usando seek y read. Segun estuve leyendo:

seek me coloca el puntero en una posicion en especifico y me permite moverme desde el inicio, desde una posicion o desde el final con los parametros (0,1,2) para leer con read. Pero a pesar de esto, cuando uso el "read" me lee desde el inicio :S


Lo que tengo es lo siguiente

seek(l,-3955,1); #me posiciono en la 3955 para leer hacia atras
read(l,$var,50); #almaceno en $var 50 caracteres desde la posicion 3905-3955

Pero aun asi cuando hago print $var; me presenta los primeros 50 caracteres desde la posicion 0 hasta la 49 del archivo.

Alguna idea?
Gracias!


En línea

leogtz
. . .. ... ..... ........ ............. .....................
Colaborador
***
Desconectado Desconectado

Mensajes: 3.069


/^$/


Ver Perfil WWW
Re: Ayuda con "read" y "seek" en perl
« Respuesta #1 en: 4 Abril 2011, 23:19 pm »

Ya probaste con:
seek(l,3955,0);

Según he leído, eso sitúa el puntero del archivo en el byte 3955.


En línea

Código
  1. (( 1 / 0 )) &> /dev/null || {
  2. echo -e "stderrrrrrrrrrrrrrrrrrr";
  3. }
  4.  
http://leonardogtzr.wordpress.com/
leogutierrezramirez@gmail.com
jankoitt

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: Ayuda con "read" y "seek" en perl
« Respuesta #2 en: 7 Abril 2011, 23:04 pm »

me funciona ahora si quito el "menos" en el 3955, lo que hice fue restar la cantidad de caracteres que deseaba leer a la posicion y asi me resulto (medio arcaico) pero para el fin resuelve.
Gracias!
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines