Forum Webscript.Ru

Программирование => Perl => Тема начата: chouck от 20 Августа 2001, 11:30:55

Название: Как считать изменить и выкикуть обратно бинарный файл?
Отправлено: chouck от 20 Августа 2001, 11:30:55

Прям не знаю что делать!
Пробовал так
-------------------------------------
 open(PARSEFILE, "<187.mp3");
 binmode (PARSEFILE,":raw" );
 my $to_do_file=;
Считывает только первые 416 байт
-------------------------------------
Пробовал так
-------------------------------------
 sysopen(BINDAT, "187.mp3", O_RDONLY | O_BINARY)  || die "can\'t open records.data: $!";
 sysopen(FH, "188.mp3", O_RDWR | O_CREAT) || die "can\'t open records.data: $!";
 while (sysread(BINDAT, $buf, 1024)) {
        syswrite(FH, $buf, length($buf));
    }
------------------------------------------
Вообще ничего не происходит.

Название: Как считать изменить и выкикуть обратно бинарный файл?
Отправлено: Haze от 20 Августа 2001, 14:13:48

Цитировать

Прям не знаю что делать!
Пробовал так
-------------------------------------
 open(PARSEFILE, "<187.mp3");
 binmode (PARSEFILE,":raw" );
 my $to_do_file=;
Считывает только первые 416 байт
-------------------------------------
Пробовал так
-------------------------------------
 sysopen(BINDAT, "187.mp3", O_RDONLY | O_BINARY)  || die "can\'t open records.data: $!";
 sysopen(FH, "188.mp3", O_RDWR | O_CREAT) || die "can\'t open records.data: $!";
 while (sysread(BINDAT, $buf, 1024)) {
        syswrite(FH, $buf, length($buf));
    }
------------------------------------------
Вообще ничего не происходит.
 

Попробуй так:

 open(PARSEFILE, "<187.mp3");
 binmode (PARSEFILE,":raw" );
 undef $/;
 my $to_do_file=;