Perl require 问题请教
cat acl-lib.pl
复制代码
cat require.pl
复制代码
perl require.pl
Global symbol "$M" requires explicit package name at require.pl line 6.
Execution of require.pl aborted due to compilation errors.
问题:如果要实现能答应$M 是否一定要去掉acl-lib.pl中的 my 与 require.pl use strict;
- my $M = 'aa';
- sub Main {
- my $Msg = 'This is My Test';
- print $Msg;
- }
- 1;
cat require.pl
- #!/usr/bin/perl -w
- use strict;
- require './acl-lib.pl';
- &Main();
-
- print $M;
perl require.pl
Global symbol "$M" requires explicit package name at require.pl line 6.
Execution of require.pl aborted due to compilation errors.
问题:如果要实现能答应$M 是否一定要去掉acl-lib.pl中的 my 与 require.pl use strict;
作者: mitmax 发布时间: 2011-05-26
词法变量有3个界限，通常的{}括起的作用域，文件结尾，eval 字符代码的结尾。所以 $M 的作用域只限 abc-lib.pl 。这时应该用全局变量 our，所谓去掉 my strict 其实就是用的全局变量 等价于 our
作者: zhlong8 发布时间: 2011-05-26