|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Dmitry Smolin 2:5020/949 15 Mar 2001 16:14:49 To : Bazhanov V. Subject : разобрать бин. файл --------------------------------------------------------------------------------
Once, 15 Mar 2001 14:11, Bazhanov V. wrote to All:
BV> Есть бинарный файл с числами с плавающей запятой, длинна 4 байта.
BV> read(FILEHANDLE,$zTIT,4*1440);
BV> for( $i=0; $i < 1440; $i++ )
BV> { $a=unpack( "f", substr($zTIT,$i,4) );
BV> ерунда получается :((
$a=unpack( "f", substr( $zTIT, $i*4, 4 ));
Или тебя какая-нибудь дpугая "еpунда" смущает?
Take care.
--- OS/2 System Editor snapshot-2001.02.24
* Origin: Who's that man who's got the sentimental swing (2:5020/949)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/208523ab0de62.html, оценка из 5, голосов 10
|