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

请教大家一个问题：使用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文件的时候也会有这种情况，请问一下这是怎么回事？
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---