&{$name} beendet block: oder hab ich ein Blackout? - #80333 (Allgemeines zu Perl)

Strat

2004-02-28 00:00

User since
2003-08-04
5246 Artikel
ModeratorIn

einfach use strict verwenden, dann hat man das problem mit den symbolischen Referenzen nicht mehr. und falls man doch mal eine braucht, kann man ja mit no strict arbeiten, z.B. zum verankern einer sub in der symboltabelle:

Code: (dl )

my @attributes = qw(color maximalgeschwindigkeit zylinder);
 
# generiere die noetigen Methoden
foreach my $attribute (@attributes) {
    my $code = sub {
        my ($self, $value) = @_;
        $self->{ uc($attribute) } = $value if defined $value;
        return $self->{ uc($attribute) };
    };
 
    no strict 'refs';
    *{ $attribute } = $code;
} # foreach # ab hier ist strict wieder aktiv

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