intermediate perl 中看不懂的地方

fucj

###############Destroy Barn1
#!/usr/bin/perl
{package Animal;
    sub speak {
        my $class=shift;
        print $class->name," goes ",$class->sound,"\n";
    }
    sub name{
                my $self=shift;
                ref $self
                ? $$self
                : $self;
        }
    sub named {
                my $class=shift;
                my $name=shift;
                bless \$name,$class;
    }
    sub DESTROY{
            my $self=shift;
            print '[',$self->name," has died.]\n";
    }
    sub eat {
            my $class=shift;
            my $food=shift;
            print $class->name," eat","  $food\n";
    }
}
{package Cow;
        @ISA=qw(Animal);
        sub sound{'neigh'};
        
}

sub feed_a_cow_named {
        my $name=shift;
        my $cow=Cow->named($name);
        $cow->eat('grass');
        print "Returning from the subroutine.\n";
}
{package Barn;
        sub new {bless [],shift};
        sub add {push @{+shift},shift};  ＝＝＝＝＝＝＝＝＝>这句话什么意思，＋号什么意思
        sub contents {@{+shift}};
        sub DESTROY {
                my $self=shift;
                print "$self->nameaa is being destroyed\n";
                for ($self->contents){
                        print ' ',$_->name," goes homeless.\n";
                }
        }
}
my $barn=Barn->new;
$barn->add(Cow->named('Bessie'));
$barn->add(Cow->named('Gwen'));
print "Burn the barn:\n";
$barn=undef;
print "End of program.\n";

kernel69

还在看perl语言入门……

fucj

我快看了2年这本鸟书了，郁闷！！！实践太少！

jason680

回复 1# fucj

they are the same
sub add {push @{+shift},shift};
sub add {push @{shift()},shift};

you will get error message if you write shift only in @{...}
sub add {push @{shift},shift};

Ambiguous use of @{shift} resolved to @shift at xxx.pl line 8.
Global symbol "@shift" requires explicit package name at xxx.pl line 8.

   

zhlong8

sub add {push @{+shift},shift};  ＝＝＝＝＝＝＝＝＝>这句话什么意思，＋号什么意思

在函数定义中 shift 的默认参数是 @_，+ 是为了告诉编译器别把它当成变量 @shift。

datou06415

如果你看的是影印版的话，我记得那一页的最下面有小字的注释，解释的也很清楚呀。

jun413947139

俺也再看这本书。。。全是鸟语。。序言引言。。我共找到将近90个生词