Помогите, кто может! При чтении файла ф-цией read() некоторые файлы до конца не считываются. Этот код:

open(DATA, "/tmp/10err.arj") or die "$!";
$filesize = -s DATA;
print $filesize."\n";
while($r=read(DATA, $buf, $filesize)){
      #print encode_base64($buf);
      print $r;
}
выдает следующее:
56484
1525

установка $/=undef; ничего не дает.

Заранее спасибо.

• Чтение бинарника функцией read(),qq, 00:40 , 31-Май-03
• Чтение бинарника функцией read(),uldus, 16:55 , 31-Май-03
  • Чтение бинарника функцией read(),ix_adm, 09:23 , 02-Июн-03

$filesize = -s "/tmp/10err.arj";

>Помогите, кто может! При чтении файла ф-цией read() некоторые файлы до конца
>не считываются.

perldoc -f binmode

>open(DATA, "/tmp/10err.arj") or die "$!";
binbode(DATA);

....

>while($r=read(DATA, $buf, $filesize)){
my $buf;
while(my $r = read(DATA, $buf, 1024)){
читай блоками, а все разом.

>>Помогите, кто может! При чтении файла ф-цией read() некоторые файлы до конца
>>не считываются.
>
>perldoc -f binmode
>
>>open(DATA, "/tmp/10err.arj") or die "$!";
>binbode(DATA);
>
>....
>
>>while($r=read(DATA, $buf, $filesize)){
>my $buf;
>while(my $r = read(DATA, $buf, 1024)){
>читай блоками, а все разом

Спасибо.