require小实验

adminsinx

1^# adminsinx 发表于 2008-12-19 19:30

文件a

#!/usr/bin/perl

use strict;
use warnings;
unshift (@INC,`pwd`);
require ('b');
print $ab;

文件b

#!/usr/bin/perl

use strict;
use warnings;
package ab;
my $ab=123;

我想让变量$ab放到b文件中，然后在a文件用require访问。请各位不吝赐教。

MMMIX

2^# MMMIX 发表于 2008-12-19 21:45

perldoc -f require
perldoc -f our

027xiatian

3^# 027xiatian 发表于 2008-12-20 10:06

our $ab