use strict 碰到的问题[已解决]

sundycindy

写了子类coffee，它是继承base代码如下：
base.pm

package Bean; use strict; sub new {     my $type =shift;     my $this ={};     $this->{'Bean'} ='Colombian';     bless $this,$type;     return $this; } 1;

coffee.pm

package Coffee; #use strict; use base Bean; sub printType{     my ($self,$name)=@_;     print "The type of Coffee is $self->{'Coffee'}\n";        } sub new{     my $type =shift;     my $this =Bean->new();     $this->{'Coffee'} = klsdjk;     bless $this,$type;     return $this;     }     1;

coffee.pm 放开 use strict； 编辑就报告my $this =Bean->new();错误，去除编译运行都OK。请大家指点，谢谢！

Bareword "Bean" not allowed while "strict subs" in use at Coffee.pm line 4.
Compilation failed in require at ./test.pl line 3.
BEGIN failed--compilation aborted at ./test.pl line 3.

[ 本帖最后由 sundycindy 于 2007-8-23 19:31 编辑 ]

flw

为什么都喜欢把错误信息藏起来？

sundycindy

不好意思，没有拷贝下来。

flw

use base qw(Bean);
应该这样。
perldoc base

sundycindy

谢谢指点

flw

原帖由 sundycindy 于 2007-8-23 19:31 发表
谢谢指点

希望你能明白通过这个帖子你应该学到什么。

DennisRitchie

楼主，你的程序是有颜色的，怎么弄的？教教俺！

Osment

原帖由 DennisRitchie 于 2007-8-23 19:39 发表
楼主，你的程序是有颜色的，怎么弄的？教教俺！

用 {code} 代码 {code} (花括号换成方括号)