use strict 碰到的問(wèn)題[已解決]

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 放開(kāi) use strict； 編輯就報(bào)告my $this =Bean->new();錯(cuò)誤，去除編譯運(yùn)行都OK。請(qǐng)大家指點(diǎn)，謝謝！

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

為什么都喜歡把錯(cuò)誤信息藏起來(lái)？

sundycindy

不好意思，沒(méi)有拷貝下來(lái)。

flw

use base qw(Bean);
應(yīng)該這樣。
perldoc base

sundycindy

謝謝指點(diǎn)

flw

原帖由 sundycindy 于 2007-8-23 19:31 發(fā)表
謝謝指點(diǎn)

希望你能明白通過(guò)這個(gè)帖子你應(yīng)該學(xué)到什么。

DennisRitchie

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

Osment

原帖由 DennisRitchie 于 2007-8-23 19:39 發(fā)表
樓主，你的程序是有顏色的，怎么弄的？教教俺！

用 {code} 代碼 {code} (花括號(hào)換成方括號(hào))