keine Klassen in perl?! *heul* - #64988 (Allgemeines zu Perl)

Strat

2006-04-15 12:19

User since
2003-08-04
5246 Artikel
ModeratorIn

Code: (dl )

sub parent {
    my ( $self, $parent ) = @_;
    $self->{parent} = $parent if defined($parent);
    return $self->{parent};
}

hat das problem, dass man parent nicht auf undef setzen kann. mit folgender syntax kann man sogar das erreichen.

Code: (dl )

sub parent {
    my ( $self, @parent ) = @_;
    $self->{parent} = $parent[0] if scalar(@parent);
    return $self->{parent};
}
# oder
sub parent2 {
    my $self = shift @_;
    my ($parent) = @_;
    if( scalar @_ ) {
      $self->{parent2} = $parent;
    }
    return $self->{parent2};
}

oder so aehnlich; das scalar(@list) gibt die anzahl der listenelemente zurueck, und so kann man auch undef abdecken

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/