por explorer » 2007-06-13 18:46 @823
Yo creo que estás cometiendo un error con la forma de usar read().
Estás usándolo así: read(FL, $data, 1,$igg); que quiere decir que del fichero abierto, lees 1 byte y lo guardas dentro de $data en una posición desplazada $igg.
Yo creo que te sobra la variable $igg en esa instrucción. Y en vez de leer de uno en uno, puedes probar a leer más bytes de golpe. Con unpack luego los desempaquetas y los metes en @dec;
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES