[PerlChina] Re: 请教一个关于read函数的问题

使用 binmode 看看

open my $fh, '<', $path
or die "Can not open!\n";

binmode ($fh);

-------- Original Message --------
Subject: [PerlChina] 请教一个关于read函数的问题
From: lee.li@a8.com
To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
Date: 11/5/2009 17:50
> 请教大家一个问题：使用read函数无法读取指定大小字节的内容，而是比指定的字节要小
>
> my $path = 'E:\English Study\Song\Blowing in the Wind.mp3';
> open my $fh, '<', $path
> or die "Can not open!\n";
>
> my $content;
> print read($fh, $content, 5000000), "\n";
>
> print的大小只有1450，而歌曲的大小有5M多，读取mp4、pdf文件的时候也会有这种情况，请问一下这是怎么回事？
> >
>

--
Best Regards,
Anthony WU

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---