|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vadim Tzirulnicov 2:5020/400 08 Feb 2003 09:17:35
To : Vladimir Podgorny
Subject : Re: Двоичный вывод
--------------------------------------------------------------------------------
Hello, Vladimir!
В итоге у меня вышло вот что:
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 выясняется, что перезапись была произведена с
ошибкой - выводится "Программе требуется больший объём памяти".
Что тут не так ?
With best regards, Vadim. E-mail: tz@nc.ru
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
