🚀 go-pugleaf

Krzysztof Murkowski wrote:
> 
> Rafal Walecki wrote:
> >
> > Czy ktos moze mi wyjasnic czy mozna i ewentualnie jak mozna
> > obrabiac pliki binarne w perlu?
> > Zwykle read nie chce czytac niczego poza tekstem.
> 
> read oczywiscie czyta pliki binarne. Ale zeby dzialalo poprawnie
> po open trzeba okreslic typ pliku jako binarny aby znaczej chyba 26
> nie byl interpretowany jako koniec pliku.
> 
> open( plik, "<plik.bin" );
> binmode( plik );
> read...
> 
> --
> Krzysztof Murkowski
> mailto:murek@ml.put.poznan.pl
> http://www.ml.put.poznan.pl/~murek

OK zgadza sie read czyta pliki binarne (nawet nie jest konieczne
ustawianie go jako binarny gdy pracuje sie pod Unix'em), jednak problem
lezy gdzie indziej:
Z zboiru binarnego chce odtworzyc nazwe grupy (lancuch znakowy). Dlugosc
tego lancucha zapisana jest w poprzednim bajcie. Niestety nie potrafie
przeczytac tego bajtu.
Ponizej fragment kodu w ktorym usilowalem przeczytac ten lancuch:

...
open(DGNF, "<ttt1.dgn");

seek(DGNF, 19838, 0);
read(DGNF, $grpname, 16);
print $grpname, "\n";
seek(DGNF, 2, 1);
read(DGNF, $tlen, 2);
read(DGNF, $title, $tlen);
print $tlen, "\n";
print $title, "\n";
...

Wyglada to tak jakby perl nie chcial czytac niczego spoza zakresu
dajacego sie interpretowac jako znaki.
Moze ktos wie jak czytac i interpretowac takie cyfry z pliku binarnego?
A co z formatem zmiennoprzecinkowym zapisanym na kilku bajtach?

Z gory dzieki za pomoc.

-- 
Rafal