Perl值不坚持

Question

我知道我在这里遗漏了一些简单的东西,但我无法弄明白并且谷歌无法正常工作

我试图使用该值,$F但它不起作用.我将省略一些代码.我得到一个错误基本上说$f需要一个特定的包名称

sub captureFile()
{
    my $F = $File::Find::name;
    if ($F = ~/txt$/)
    {
      $F=~ s:(.*)(\/reports\/.*):$2:;
      loadEnvironmentProperties($F);
    }
 }


 sub loadEnvironmentProperties()
 {
    print $F;
 }

Answer 1

永远use strict; use warnings;!

您尝试将$ F指定为参数

loadEnvironmentProperties($F);
                          ^^

你声明的函数没有参数

sub loadEnvironmentProperties()
                             ^^

你从来没有真正阅读过的论点loadEnvironmentProperties.你要:

sub loadEnvironmentProperties {
   my ($F) = @_;
   print $F;
}