小编him*_*ahl的帖子

我有一个脚本 ( A.pl) 和一个包 ( B.pm)，我想在其中创建一个静态变量，B.pm以便A.pl.

A.pl

use lib 'path/to/B_Package';

for loop 10 times {
  fun(age);
}
if ($count>0) {
  print "script fails";
}

下午

package B {
  fun() {
    my $age_given = shift;
    my $count;

    eval {
      result = someFileHandling;
    } or die {
      $count++; 
    }
  }
}