副常式的问题？

sub file_open {
                my $F = $_;
                #chomp($F);
                open F,$_;
                for (<F>) {
                        if($_=~/img:+/){
                                print img($_);
                        }else{
                                print "$_<br>";
                        }
                }
                close F;
                #return 1
        }

                 if ($RQ{key}) {
                           file_open($RQ{'KEY'});
                  }

                   这样传值进去竟然没有输出？？硬要拆掉SUB块才有输出：
              
            if ($RQ{key}) {
                my ($dir,$F) = split (/\//,$RQ{'key'});       
                chdir $dir || die last;
                open F,$F ;
                for (<F>) {
                        if($_=~/img:+/){
                                print img($_);
                        }else{
                                print "$_<br>";
                        }
                }
                close F;
        }else{
                print "sorry";
        }

本帖最后由 zhlong8 于 2010-12-10 14:55 编辑

函数中 my $f = shift; 或 my($f) = @_;

函数的参数在 @_ 中，不是 $_ 中