小编kee*_*eru的帖子

我有很多文件.在一个文件ie(Lib::Utils)中我有所有泛型函数.我需要为两个变量赋值并定义相同的内容Lib::Utils,我需要将其导出到其他文件.我不应该在其他文件中声明该变量.

我尝试过如下

在Lib :: Utils中

package Lib::Utils;

require Exporter;
@ISA = qw(Exporter);

our $FAIL = 0;
our $SUCCESS = 1;

在test.pl中

use strict;
use warnings;

use Lib::Utils;

our ($FAIL, $SUCCESS);

print("$FAIL\n$SUCCESS\n");

但我希望将其导出Lib::Utils到所有其他文件.

如果我将变量作为全局变量,它可以正常工作.这段代码有什么问题？

sub Multiply {
    $res = $a* $b;
    return ( $a, $b, $res);
}

main: 
my $a =3;
my $b =4;
my $res;
( $a, $b, $res) = Multiply();
print ("Input1 = $a\nInput2 = $b\nResult = $res");