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

Linuxer

2007-09-07 00:17

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Hi,

was du technisch machen willst, wird mir klar, aber welche Logik dahinter steckt, warum Du das machen willst, bleibt mir verschlossen.

Wenn die erste Sub der Konstruktor ist, kannst Du den Array selber als Objekt verwenden...

Code (perl): (dl )

#!/usr/bin/perl
# vi:ts=4 sw=4 et:

package ups;
use strict;
use warnings;

sub new {
  my $class = shift;
  my %parms = @_;
  my $self = []; # array-ref

  push @$self, qw( abc def 123 456 );

  bless $self, $class;
  return $self;
}

sub print_content {
  my $self = shift;
  my @args = @_;
 
  for ( @$self ) {
    print $_, $/;
  }
}

package main;

my $a = ups->new();

$a->print_content();

Das Problem ist, dass der Gültigkeitsraum des Arrays @daten bei Deinem Beispiel auf den Block der Subroutine beschränkt bleibt.

Wenn Du die Daten nicht im eigentlichen Objekt speichern willst/kannst, könntest Du noch mit einem Closure arbeiten.
Aber das ist schon stärkerer Tobak, von daher würde ich dazu raten, die Daten im Objekt unterzubringen, wie pktm schon aufzeigte....

Code (perl): (dl )

#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

package ups;

{  ### CLOSURE
    my @daten = (); # @daten ist nur in den Methoden bekannt, die 
                           # in diesem Block definiert werden.

    sub fill_data {
        @daten = qw( a b c 12 3 );
    }

    sub print_data {
        for ( @daten ) {
            print $_, $/;
        }
    }
}

sub new {
    my $class = shift;
    my %parms = @_;
    my $self = {};

    bless $self, $class;
    return $self;
}

package main;

my $obj = ups->new();

$obj->fill_data();
$obj->print_data();

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!