perl OOP

wangsheng0415

第一次接触perl OOP，在网上找了个程序，执行时出错，
程序有两个类Base.pm,Derive.pm,

错误信息:cann't locate object method "new" via package "Base" at Derive.pm line 15.
line 15 at Derive.pm部分程序为:
sub new{

  my $type=shift;

  my $this=Base->new();

  $this->{'Derive'}='instant';

  bless $this,$type;

  return $this;

}

测试程序test.pl为
push(@INC,`pwd`);

use Derive;

$cup=new Derive;

print $cup->{'Derive'};

print "\n";

print $cup->{'Base'};

print "\n";

$cup->setBaseType('Mixed');

$cup->setDeriveType('mmmm');
<>

请大侠指点下!!!!!!!

flw

第一次接触就不从教程开始而是从网上的例子开始，
难道语法都是“试出来”的吗？

perldoc perltoot
perldoc perlboot
perldoc perlobj
perldoc perltooc

wangsheng0415

看了Perl入门,小骆驼的，但里面没有讲OOP

wangsheng0415

谢谢flw,我看看perldoc先......

churchmice

1. 
   
2. BEGIN {
   
3. push(@INC,`pwd`);
   
4. }
   

复制代码

flw

小骆驼没有就看大骆驼。
你也知道小骆驼的名字其实是叫《Perl 入门》的。

wangsheng0415

哪个大骆驼?
有本书是:可以解决难题的Perl脚本...难
请推荐一本

wangsheng0415

5楼的加上了还不行啊

wangsheng0415

不知道为什么这样就行了
BEGIN{
unshift @INC,"../OOP";#OOP是文件夹
}
不能用pwd来代替"../OOP",我是在windows下的....
unshift也不能改成push