学perl的面向对象遇到个问题

xie3ks

package Student;

sub new
{
    my $class = shift;
    my $data={};
    our $students;

    my $ref = sub
    {
        my ($access_type, $key, $value)=@_;

        if ($access_type eq "set")
        {
            $data->{$key} = $value;
        }
        elsif ($access_type eq "get")
        {
            return $data->{$key};
        }
        elsif ($access_type eq "keys")
        {
            return keys %{$data};
        }
        elsif ($access_type eq "destory")
        {
            $students--;
            return $students;
        }
        else
        {
           die "Access type should be set or get\n";
        }
        print "New Student created, we have ",++$students," students.\n";
        bless ($ref, $class);
    }
}

sub set{
    my ($self, $key, $value) = @_;
    $self->("set", $key, $value);
}

sub get{
    my ($self, $key) = @_;
    $self->("get", $key);
}

sub display{
    my $self = shift;
    my @keys = $self ->("key");
    foreach my $key(@keys)
    {
        my $value = $self->("get", $key);
        print "%-25s%-5s:%-20s\n", $self, $key, $value;
    }
    print "\n";
}

sub DESTROY{
    my $self = shift;
    print "Object going out of scope:\n";
    print "Students remain: ", $self->("destroy"), "\n";
}

1;




------------------------------------------------------------

#!/usr/bin/perl
use Student;
use warnings;
use strict;

my $ptr1 = Student->new();
my $ptr2 = Student->new();
my $ptr3 = Student->new();

$ptr1->set("Name", "Jody Rogers");
$ptr1->set("Major", "Law");

$ptr2->set("Name", "Christian Dobbins");
$ptr2->set("Major", "Drama");

$ptr3->set("Name", "Tina Savage");
$ptr3->set("Major", "Art");

$ptr1->display();
$ptr2->display();
$ptr3->display();

print "\nThe major for ", $ptr1->get("Name")," is ", $ptr1->get("Major"), ".\n\n";


这个例子是 <perl 实例精解第四版> 的
在执行的时候老是报错
Can't call method "set" on unblessed reference at student_pm.pl line 10.

那个大拿帮看看！！感激不尽！！

tc1989tc

http://perldoc.perl.org/perlobj.html#A-Class-is-Simply-a-Package
看这个 你的bless都没有用对啊

xie3ks

看的人多，回复的人少

tc1989tc

1. package A;
   
2. sub new {
   
3.       return bless {}, shift;
   
4. }

复制代码

xiumu2280

少了一个return

MMMIX

回复 1# xie3ks


    代码问题不少啊。你是原样拷贝粘贴的，还是自己修改过啊？

xie3ks

拷贝的，都没变过什么
回复 6# MMMIX


   

xie3ks

你好，我之前也加过return 在 bless 前面，可是还是报同样的错误回复 5# xiumu2280


   

MMMIX

回复 7# xie3ks


    我把原书翻出来看了一下，发现（部分）代码应该是你自己手工输入/修改的，因为你贴上来的代码错误人家书中都没有……

不过那个错误的原因是 bless 的位置不对，应该把它放到 new() 的最后。不知道当初作者是用哪个版本的 perl 测试的。

xie3ks

谢谢，你这个是最简单的bless的语法
我上面的问题对我来说有点复杂
我将 bless ($ref, $class) 改成 return bless ($ref, $class)  还是报相同的错
回复 4# tc1989tc