perl调用自定义pm问题

[ma_zmin]

问题1：
被调用的pm文件需要注意什么。
#!/usr/bin/perl
package HelloWorld;

sub hw{
print "Hello, World...\n";
}
1;
就只有这样可以么？文件名是HelloWorld.pm
问题2：
如果问题1成立，那么在一个pl文件中怎么调用？
use HelloWorld;
...
my $hw = new HelloWorld;
$hw->hw();
这样可以么？
我这里运行出错，麻烦哪位高人帮我看看，我是新注册用户，什么也没有，请帮我一下，谢谢！

[wxlfh]

你自己写的包是不支持OO的，但你调用的方式却是OO的，肯定要出错啦。

建议你看看《Perl语言编程》这本书的相关章节，肯定会有所收获。

[wxlfh]

use HelloWorld;
my $hw = HelloWorld->new;
$hw->hw;


package HelloWorld;
sub new{
    my $class = shift;
    my $self = {};
    return bless $self, $class;
}
sub hw {
    print "Hello, World...\n"; 
} 
1; 

帮你改写一下，现在你应该能按照你调用的方式运行了，呵呵。

[wxlfh]

忘了说了，你得把这部分

package HelloWorld;
sub new{
    my $class = shift;
    my $self = {};
    return bless $self, $class;
}
sub hw {
    print "Hello, World...\n"; 
} 
1; 

存为一个名为HelloWorld.pm的文件，并把它放在@INC里的其中一个目录中。

[mjk]

请参照如下代码：
构造一个叫 Bestiary 的模块，创建一个看着象下面这样的叫 Bestiary.pm 的文件：


package Bestiary;
require Exporter;

our @ISA =qw(Exporter);
our @EXPORT =qw(camel); # 缺省输出的符号
our @EXPORT_OK =qw($weight); # 按要求输出的符号
our $VERSION = 1.00; # 版本号

### 在这里包含你的变量和函数

sub camel { print "One-hump dromedary" }

$weight = 1024;

1;

[ma_zmin]

谢谢大家！了

[wxlfh]

package HelloWorld;
sub new{
    my $class = shift;
    my $self = {};
    return bless $self, $class;
}
sub hw {
    print "Hello, World...\n"; 
} 


package main;
my $hw = HelloWorld->new;
$hw->hw;

这样也可以的。