ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      12 Aug 2002  19:37:07
 To : Ivan Frolcov
 Subject : Re: prog.exe
 -------------------------------------------------------------------------------- 
 

 
  >>  Hеобходимо в двоичном файле встать на нужный адрес
  >> и с этого адреса записать данные из массива фиксированной длины.
  >>  Как это лучше сделать?
 
  IF> perldoc -f open, binmode, seek, print
 
 Спсибо. Уже сам сделал.
 
 = Вставка =
 use Fcntl;
 
 my (@FIELDS,$BUFFER,$BUF,$BMP);
 my $FORMAT = 'L A12 A16';
 my $RECSIZE = 71094;
 my $ADDRESS = 389854;
 
 open (FIL,"new.bmp") or die;
 binmode FIL;
 read(FIL, $BMP, $RECSIZE) or die;
 close FIL;
 
 open (FILE,"+<programm.exe") or die;
 binmode FILE;
 seek(FILE, $ADDRESS, SEEK_SET) or die;
 read(FILE, $BUFFER, $RECSIZE) or die;
 @FIELDS = unpack($FORMAT, $BUFFER);
 $BUF = pack ($FORMAT, @FIELDS);
 seek(FILE, $ADDRESS, SEEK_CUR) or die;
 print FILE $BMP;
 close FILE;
 
 = Вставка =
 
 * У каждого модератора есть свои плюсы.
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    prog.exe   Nikolay Pichtin   11 Aug 2002 00:30:37   Re: prog.exe   Ivan Frolcov   12 Aug 2002 10:14:49   Re: prog.exe   Nikolay Pichtin   12 Aug 2002 19:37:07