- 论坛徽章:
- 6
|
我现在想做的事情是编写一个package,里面包含一些变量的定义和函数的定义。然后另外一个脚本来调用这个package里面的变量或者方法。
我自己做了一个简单的实验。
parameter.pm:
package parameter;
use strict;
sub xprint
{
my $x=10;
return $x;
}
1;
test.pm:
#!/usr/bin/perl -w
use parameter;
$result=parameter->xprint();
print "this is $result \n";
不明白的是A脚本中最后一行1;是做什么用的,如果将该行注释或者删除则B无法成功调用A,错误信息如下:
parameter.pm did not return a true value at ./test.pm line 2.
BEGIN failed--compilation aborted at ./test.pm line 2.
如果我将test.pm修改如下:
#!/usr/bin/perl -w
require parameter;
$result=parameter->xprint();
print "this is $result \n";
即使删除1;也可以成功调用。不明白是怎么回事,请高手指教!
谢谢了! |
|