书上写错了？

午夜凋零

不废话，直接上code，关于tie的用法的内容，书上的代码是这样的：

1. #!/usr/bin/perl -w
   
2. package TieFile;
   
3. my $F_OFFSETS = 0;
   
4. my $F_FILEHANDLE = 1;
   
5. 
   
6. sub TIEARRAY{
   
7.   my ($pkg, $filename) = @_;
   
8.   open $fh, $filename || die "Could not open file: $!\n";
   
9.   bless [[0], $fh], $pkg;
   
10. }
    
11. 
    
12. sub FETCH{
    
13.   my ($obj, $index) = @_;
    
14.   my $rl_offsets = $obj->[$F_OFFSETS];
    
15.   my $fh = $obj->[$F_FILEHANDLE];
    
16.   if($index > @$rl_offsets){
    
17.     $obj->read_until($index);
    
18.   }
    
19.   else{
    
20.     seek $fh, $rl_offsets->[$index], 0;
    
21.   }
    
22.   return scalar<$fh>;
    
23. }
    
24. 
    
25. sub STORE{
    
26.   die "Sorry. Cannot updata file using package TieFile\n";
    
27. }
    
28. 
    
29. sub DESTORY{
    
30.   my $obj = shift @_;
    
31.   close($obj->[$F_FILEHANDLE]);
    
32. }
    
33. 
    
34. sub read_until{
    
35.   my ($obj, $index) = @_;
    
36.   my $rl_offsets = $obj->[$F_OFFSETS];
    
37.   my $last_index = @$rl_offsets - 1;
    
38.   my $last_offset = $rl_offsets->[$last_index];
    
39.   my $fh = $obj->[$F_FILEHANDLE];
    
40.   seek $fh, $last_offset, 0;
    
41.   while(<$fh>){
    
42.     $last_offset += length($_);
    
43.     $last_index ++;
    
44.     push @$rl_offsets, $last_offset;
    
45.     last if $last_index > $index;
    
46.   }
    
47. }
    
48. 
    
49. 1;

复制代码

上述代码存入一名为"TieFile.pm"的文件中，然后在另一个文件中使用此package：

1. #!/usr/bin/perl -w
   
2. use TieFile;
   
3. tie @lines, "TieFile", "TieFile.pm";
   
4. print $lines[0];
   
5. print $lines[1];
   
6. print $lines[2];

复制代码

打印结果是：

1. #!/usr/bin/perl -w
   
2. Use of uninitialized value in seek at TieFile.pm line 20, <$fh> line 1.
   
3. #!/usr/bin/perl -w
   
4. my $F_FILEHANDLE = 1;

复制代码

结果明显不对啊。请高手解答，谢谢~
详细内容可以参看《高级Perl编程》 中国电力出版社 第一版 Sriram Srinivasan著 Perlisb译，第185页和184页。

Kitaisky

USE STRICT !!!

How would $fh even compile AS in

"open $fh, $filename || die "Could not open file: $!\n";  ???

Download code here: http://shop.oreilly.com/product/9781565922204.do

午夜凋零

回复 2# Kitaisky

没理解您的意思，抱歉……AS是什么？
我用了use strict还是不行。
我把代码中第16行改成

1. if($index > (@$rl_offsets-1)){

复制代码

第45行改成

1. last if $last_index > $index-1;

复制代码

之后，倒是能打印出正确的结果了。