如何在activeperl中安装包模块（手动）[重复]

Question

我正在使用 oops 概念中的 perl 示例。我无法安装 perl 包模块。

此文件与 student.pm 一起保存

 package Student;
 require Exporter;
 use vars qw(@ISA @EXPORT);
 @ISA = qw(Exporter);
 our @EXPORT =('new'); 
 sub new   
 {  
     my $class = shift;  
     my $self = {  
         _name => shift,  
         _rank  => shift,     
     };  

     print "Student's name is $self->{_name}\n";  
     print "Student's rank is $self->{_rank}\n";  

     bless $self, $class;  
     return $self;  
 }  

 1;  

这个文件是用 person.pl 保存的

  use Student; 
  $object = new Student( "Ram", "3th");  

我收到这样的错误消息 在@INC 中找不到Student.pm（您可能需要安装Student 模块）（@INC 包含：C:/Perl64/site/lib C:/Perl64/lib）........

Answer 1

要加载当前目录中的模块，请将当前目录添加到模块搜索路径@INC：

use strict;
use warnings;
use FindBin qw( $RealBin );  # The script's directory.
use lib $RealBin;            # Look for modules there.
use Student; 
my $object = Student->new( "Ram", "3th");

另请注意，模块名称应为Student.pm 而不是student.pm。案例很重要。

 package Student;
 use Exporter qw(import);
 our @EXPORT = qw(); 
 sub new   {  
     my $class = shift;  
     my $self = {  
         _name => shift,  
         _rank  => shift,     
     };  

     print "Student's name is $self->{_name}\n";  
     print "Student's rank is $self->{_rank}\n";  

     bless $self, $class;  
     return $self;  
 }  

 1;  

注意事项：

• new Student 是实例化对象的旧方法（使用所谓的间接对象表示法）。现在推荐的方式是Student->new(...)

• our @EXPORT =('new')：您不需要导出new，这样做通常是错误的。由于对象创建应由模块名称限定，因此导出new 没有意义。

• require Exporter; use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); 是旧样式。最好写use Exporter qw(import)。