|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 06 Feb 2003 19:59:49
To : Vadim Tzirulnicov
Subject : Re: Двоичный вывод
--------------------------------------------------------------------------------
Vadim Tzirulnicov <tz@nc.ru> wrote:
> 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;}
#!/usr/bin/perl -wT --
use strict;
use warnings;
open FH, '<./file.bin' or die "$!";
binmode FH;
while (<FH>) {
print unpack 'H2', $_ foreach (split '');
}
close FH;
--
Vladimir A. Podgorny
Adamant ltd. deputy director (technical)
phone/fax: +380(44)5667722
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
