|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Eugene Bodin 2:5020/400 08 Feb 2003 12:17:15
To : Vadim Tzirulnicov
Subject : Re: Двоичный вывод
--------------------------------------------------------------------------------
Hello Vadim,
"Vadim Tzirulnicov" <tz@nc.ru> wrote:
> open (FH, "< c:/Мои документы/EDIT.COM");
> binmode FH;
> while (<FH>) {
> $a.=unpack 'H2',$_ foreach split '';
> }
> close FH;
> my @hex=split(//,$a);
^^^^^^^^^^^^^^^^^^^^
> open (FH, ">c:/Мои документы/EDIT2.COM");
> binmode FH;
> print FH chr hex foreach @hex;
> close(FH);
>
> При запуске edit2.com выясняется, что перезапись была произведена с
> ошибкой - выводится "Программе требуется больший объём памяти".
> Что тут не так ?
А то, что edit2.com по размеру получается _ровно в 2 раза_ больше,
не наводит на размышления?
Подчёркнутая строка разбивает $a на символы ("цифры"),
которые _по одной_ и записываются в edit2.com.
(Точнее, символы с соответствующими кодами).
edit.com:
00000000: 4D 5A AE ...
edit2.com:
00000000: 04 0D 05 0A 0A 0E ...
Best regards,
Eugene
--- ifmail v.2.15dev5
* Origin: RadioScan (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
