求救读取文件问题

dracula2011

请问如何从指定偏移量位置连续读取指定长度的2进制文件。比如文件中第64bit开始读取64个bit。我现在是这么做的，但是效率比较低，如果不想读取前面部分，直接从偏移量开始读取怎么做呢

my $index=1;
my $offset=1;

while ($buff) {
read (FILE,$buff,64);
if($index gt $offset){
......
}
$index=$index+1;
}

rubyish

搜索

perl seek函数

dracula2011

试过seek，但是好像不能搭配read用，seek定位以后，用什么函数来读呢

rubyish

why 不能搭配read用??

用read函数来读:

1. open A, 'file';
   
2. seek A, 64, 0;
   
3. my $buffer = 'Oh My God';
   
4. while ($buffer) {
   
5.     read( A, $buffer, 64 );
   
6. 
   
7.     # do something ... ;
   
8. }

复制代码