OOP: mit Arrays arbeiten - #99164 (Allgemeines zu Perl)

pktm

2007-09-07 00:14

User since
2003-08-07
2921 Artikel
BenutzerIn

Hm, also du könntest es irgendwo in deinem Objekt sepichern:

Code: (dl )

sub naja {
    my $self = shift;

    $self->{myarrayref} = [qw/1 2 3 q w e/];
} # /naja

Oder du schreibst dir getter und setter methoden:

Code: (dl )

sub get_ding {
    my $self = shift;
    unless( exists $self->{'__DING'} ) {
        # erstelle es
    }
    return $self->{'__DING'};
} # /get_ding

sub set_ding {
    my $self = shift;
    my $array_ref = shift;
    $self->{'__DING'} = $array_ref;
} # /set_ding

Letztes kann man natürlich auch in einer Methode kombinieren. Solche Zugriffsmethoden erweisen sich bei größeren, wiederverwendbaren Skripten oft als nützlich. Zu beginn, wenn sich noch was ändern kann (ich als schlechter Programmierer arbeite immer erstmal ohne Konzept drauf los) benutze ich die erste Variante bis ich an den Punkt komme, wo ich merke dass es nützlich ist Zugriffsmethoden zu schreiben. Für jeden Firlefanz schreibe ich die aber auch nicht.

Es gibt auch Module, die dir diese Arbeit abnehmen, allerdings habe ich mich mit denen noch nicht auseinander gesetzt.

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )