写模块遇到的问题？

夜曲

因为程序需要后期维护，所以我所有的代码前都会有use strict和use warnings来规范编码;
但是在模块中似乎不能加。

如果我写成这样：
use strict;
use warnings;
package TestPM;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(foo);

sub foo
{
        my $var1 = shift;
        print $var1;
}

使用时就会报错：
Global symbol "@ISA" requires explicit package name at TestPM.pm line 6.
Global symbol "@EXPORT" requires explicit package name at TestPM.pm line 7.
Compilation failed in require at ./main.pl line 5.
BEGIN failed--compilation aborted at ./main.pl line 5.

去掉头两行就好了。

不知道如何给模块加
use strict;
use warnings;
来规范编码？


另外直接写成.pl文件用require导入和写成.pm模块文件用use导入有什么区别吗？

兰花仙子

报错的那2个标量要用our来声明。
用our声明了变量后，就意味着在你定义的package里生成了相应的符号，这个符号可被export到其他包的符号空间。例如，use Sample qw/:sth/;这样将Sample包的sth这个符号组import 进当前包的符号空间。
而require引入的.pl脚本如果没有申明成package的话，它不会产生独立的符号空间，它里面的所有变量及方法被强制import进主包的符号空间。
如果不导入任何符号的话，use与require意义差不多，也就是说：
require "Sample.pl"; 等同于：
use Sample qw();

[ 本帖最后由 兰花仙子 于 2006-1-5 20:26 编辑 ]

fayland

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(foo);

可以这么写：
use base 'Expoter';
use vars qw/@EXPORT/;
@EXPORT = qw(foo);

用 use vars qw//; 来搞

Haskell

用 our 吧。