Question

perl中怎样在一个.pm的模块中调用外部main.pl中定义的函数？

我在main.pl里面写了print_error的处理错误函数，现在使用模块MyModule.pm时需要考虑文件内容不符合的错误情况，要调用print_error函数。请问应该怎么做？

Answer 1

# main.pl
sub print_error { .... }

# MyModule.pm
.....
&main::print_error ( $argv ) ;

追问

刚刚试了一下，不行，你这种用法是在打包成一个模块时需要采用模块中的函数才用这种方式。&module::func();

追答

我刚也试了一下, 是可以的... 除非我理解错你的问题了 ( 那先说句不好意思 )

test.pl

use TestErr;
sub killMePlease {
    print "die for @_$/";
}
TestErr::SomethingHappen; # die for I am dead
my $sth = new TestErr;
$sth -> SomethingHappen; # die for I am dead

TestErr.pm

package TestErr;

sub SomethingHappen {
    main::killMePlease ( "I am dead" ) ;
}

sub new {
    bless{}, shift;
}

1;

Answer 2

有require命令可以用的啊，不过你要知道那个文件放到哪里了

追问

require相当于c语言中的include"xxx.c"也就是在遇到这个语句时就会执行里面的语句。我需要调用的print_error函数在我的主程序main.pl中，现在如果require相当于执行主函数时再执行主函数，这样会出现问题。实际上操作出来的的结果也如我所料，程序根本无法运行。