perl OOP

wangsheng0415

UID: 25817
帖子: 126
积分: 289
在线时间: 22 小时

1^# wangsheng0415 发表于 2008-07-12 20:43

perl OOP

第一次接触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

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-07-12 22:50

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

perldoc perltoot
perldoc perlboot
perldoc perlobj
perldoc perltooc

wangsheng0415

UID: 25817
帖子: 126
积分: 289
在线时间: 22 小时

3^# wangsheng0415 发表于 2008-07-12 23:04

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

wangsheng0415

UID: 25817
帖子: 126
积分: 289
在线时间: 22 小时

4^# wangsheng0415 发表于 2008-07-12 23:08

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

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2008-07-12 23:27

[Copy to clipboard] [ - ]

CODE:

BEGIN {
push(@INC,`pwd`);
}

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-07-12 23:28

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

wangsheng0415

UID: 25817
帖子: 126
积分: 289
在线时间: 22 小时

7^# wangsheng0415 发表于 2008-07-12 23:30

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

wangsheng0415

UID: 25817
帖子: 126
积分: 289
在线时间: 22 小时

8^# wangsheng0415 发表于 2008-07-12 23:35

5楼的加上了还不行啊

wangsheng0415

UID: 25817
帖子: 126
积分: 289
在线时间: 22 小时

9^# wangsheng0415 发表于 2008-07-14 21:30

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