如何在perl中创建静态变量，以便我可以从另一个脚本访问它

Question

##标头2 ##有人可以帮我知道。 ##标头2 ##我有一个脚本（A.pl）和一个包（B.pm），我想在B.pm中创建一个静态##标头2 ##变量，以便A.pl可以访问它。

##标头2 ##脚本A.pl：

    use lib 'path/to/B_Package';
    for loop 10 times{
    fun(age);
    }
    if($count>0){
    print "script fails";
    }

##标头2 ##和程序包代码在下面给出

    Package B.pm:

   package B{
    fun(){
    my $age_given = shift ;
    my $count;
    eval{
    result = someFileHandling;
    }
    or die {
    $count++; 
    }
     }
      }

标题2 ##有人可以帮忙实现此目标吗？>

##标头2 ##有人可以帮我知道。 ##标头2 ##我有一个脚本（A.pl）和一个包（B.pm），我想在B.pm中创建一个静态##标头2 ##变量，以便它可以...

Answer 1

我会问这样的设计，但是可以的。