副常式的问题？

tsie_chen

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

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

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

tsie_chen

奇怪呀，我其他的都用$_,

一点问题也没有！

这个也没有传进多个参数?

我先试验看。

tsie_chen

奇怪呀，我其他的都用$_,

一点问题也没有！

这个也没有传进多个参数?

我先试验看。

tsie_chen

一个效果。哥们，

传如参数为默认参数，$_   @_,

如是个变量就是$_
是多个，或者是一个阵列就是@_

tsie_chen

一个效果。哥们，

传如参数为默认参数，$_   @_,

如是个变量就是$_
是多个，或者是一个阵列就是@_

这个我还是理解的，问题在于。。。是不是不能有开展名的  .

如 XXX.TXT     ;

tsie_chen

已解决！

zhlong8

你没搞明白……

tsie_chen

明白了，失误。多谢。

kingwmj

不太懂。