PERL中变量的引用

小弟接触PERL语言时间不长,在编程时遇到了一个难题,请高人指点.
如有两个PERL文件aa.pl,bb.pl.
aa.pl
#!usr/local/bin/perl -w
use strict;
my $var1=100;
print $var1,'\n';

bb.pl
#!usr/local/bin/perl -w
use strict;
my $result;
print $result,'\n';

问题:我想在bb.pl文件中引用aa.pl文件中的变量var1,并赋值给$result.

#!usr/local/bin/perl -w
use strict;
my $result=`./aa.pl`; (路径根据实际来改)
print $result,'\n';

你的意思是这个？？？？

还是这个意思？？
aa.pl
#!usr/local/bin/perl -w
use strict;
our $var1=100;
print $var1,'\n';

bb.pl
#!usr/local/bin/perl
require("/yourpath/aa.pl");
my $result=$var1;
print $result,'\n';

很感谢你!
你的意思是在bb.pl里用require函数将aa.pl引进来,在bb.pl里就可以访问aa.pl中的任何变量了吗?如果这样的话,就太合我心意了.我试一下一再来告诉你.

这可不是个好习惯

需要定义好借口

没有定义好借口，编译是不会让你通过的，

为何不写成module，然后Export呢？

因为不需要那么做。

to 楼主：
my 是文件作用域的，你没有办法在另一个文件中访问它。
你需要改成 our 才行。
另一方面，即使是你改成了 our，要想通过 use strict 的审查的话，
你还得在另一个文件中再次声明它，或者，也可以把 use strict 去掉（不过这可不是什么好习惯）。

use strict;
要养成好习惯

我只是举了一个例子，怎么样从一个文件中取另一个文件中我需要的变量或者说是值。我上面说的aa.pl，bb.pl只是为了举例而随便写的。请高人给小弟指导，我看一下您写的代码。