请问文件句柄“关闭”的问题！

tempo8

请问文件句柄“关闭”的问题！
源于 http://bbs.chinaunix.net/thread-3744895-1-1.html

1. 
   
2. my @content;
   
3. my $word;
   
4. my %hash_file2;
   
5. my $i = 1;
   
6. my $count;
   
7. open FD1, "<file1";
   
8. open FD2, "<file2";
   
9. while(<FD2>) {
   
10.      chomp;
    
11.      $hash_file2{$i} = $_;
    
12.      $i++;
    
13. }
    
14. while ($word = <FD1>) {
    
15.     chomp($word);
    
16.     $count = grep {/\b$word\b/}  values %hash_file2;
    
17.     push @content, $word if $count > 0;
    
18. }
    
19. print @content;

复制代码

C:\strawberry\perl\bin>perl word-map.pl <A.txt <B.txt >111.txt
运行时出现问题：
while(<FD2>) {#问题来啦：readline() on closed filehandle FD2
while ($word = <FD1>) {#问题也来啦：readline() on closed filehandle FD1
从代码上看，文件句柄确实已经打开了。百思不得其解。
文件句柄的文件路径也没有问题！

py

养成好习惯

1. open FH, '<', './filename' or die $!;

复制代码

tempo8

py 发表于 2012-05-20 09:34
养成好习惯

高人一语道破天机！
为么事绝对路径这么好使？！
可是怎么解决忽略中文的问题呢？