|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vadim Tzirulnicov 2:5020/400 06 Feb 2003 19:23:37
To : Dmitry Grebeniuk
Subject : Re: Двоичный вывод
--------------------------------------------------------------------------------
Hello, Dmitry!
И последний вопрос: как вывести все байты ?
Пробую
open (F, "c:/Мои документы/EDIT.COM");
binmode F;
#seek (F, позиция, 0);
@tst=<F>;
for ($a=0;$a<scalar(@tst);$a++){
seek (F, $a, 0);
$/ = \1;
print unpack("H2", <F>).'<br>';
close F;}
- читается только первый байт...
With best regards, Vadim. E-mail: tz@nc.ru
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
