perl - Perl の値が固執しない

Question

ここで単純なものが欠けていることは知っていますが、それを理解できず、Googleが機能していません

の値を使用しようとしています$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;
}

Answer 2

$F は、パラメーター配列から取得していないため、2 番目のサブルーチンには存在しません

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