Programm mit Unterprogramm - #65506 (Allgemeines zu Perl)

Strat

2006-05-05 21:26

User since
2003-08-04
5246 Artikel
ModeratorIn

Anmerkung am Rande:

Code: (dl )

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

usw. ist oft unguenstig, weil du $self->{spalteninfo} nie wieder leeren kannst; ich bevorzuge sowas wie das folgende

Code: (dl )

sub spalteninfo {
    my ( $self, @spalteninfo ) = @_;
    $self->{spalteninfo} = $spalteninfo[0] if scalar(@spalteninfo);
    return $self->{spalteninfo};
}

\n\n

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