Прям не знаю что делать!
Пробовал так
-------------------------------------
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));
}
------------------------------------------
Вообще ничего не происходит.