Array of objects (Allgemeines zu Perl)

[thread]14333[/thread]

Array of objects

Leser: 22

Articles: hide open all | hide show old branches

+7 replies
Gast kajoxx

2009-12-03 21:33
Hallo,

ich bin noch relativ frisch was Perl angeht - hier ist mein Problem:
Ich habe ein Objekt, das aus den Schlüssel und Werten einer Parameter-Datei besteht.
z.B Modulname als Schlüssel und als Wert irgendwas.
Da ich mehrere Dateien diesen Typs habe möchte ich diese in ein Array ablegen. Das Hinzufügen funktionert soweit. Ich gebe das Array zurück und kann unmittelbar die Werte auch abrufen.
Nun mein Problem - ich übergebe dieses Array einer weiteren Funktion - die dieses Array auslesen soll und hier bin ich am Verzweifeln

hier mal meine Funktion: ich zwei Ansätze probiert:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub tarfiles() { my @a = @_; for my $i (0..$#a) { #logger->debug("$i $a[$i]->modulname"); } #foreach my $row (@all) { # my $var = $row->modulname; # logger->debug("$var"); #} }
Entweder laufe ich auf ein Fehler der Derefenzierung oder mein Wert ist 1. Für mein Verständnis bekomme ich beim for-Durchlauf ein Objekt zurück - in Jave kann ich mit Hilfe des Typcastings auf dieses Objekt zugreife, aber hier fehlt mir die zündende Idee. Vielleicht kann mir jemand weiterhelfen.
Vielen Dank.

mod-edit: renee: code-Tags eingefügt
Last edited: 2009-12-03 22:17:32 +0100 (CET)
- renee
  
  2009-12-03 22:19
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Wir bräuchten etwas mehr Infos. Wie speicherst Du die Objekte in dem Array ab? Wie übergibst Du das Array an die Funktion? Usw...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- +5 replies
- MatthiasW
  
  2009-12-03 22:25
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Um ehrlich zu sein, habe ich noch nicht verstanden, wie deine Struktur denn nun eigentlich aussieht (Data::Dumper ist sehr nützlich um eine Vorstellung davon zu bekommen), aber ich kann dir ein paar allgemeine Tipps geben:
  
  1. Solltest du eine Struktur per Referenz an eine Unterfunktion übergeben. Das macht es leicht der Unterfunktion weitere Werte bzw. Strukturen mitzugeben.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  tarfiles( \@obj ); #... sub tarfiles { my( $objlist ) = @_; #...
  
  2. Werden Methodenaufrufe innerhalb von "" (double-quotes) nicht evaluiert. (Klar, da kann man auch drum herum, aber so wie du es zZ. machst, geht es nicht.) Du könntest also in der for-Schleife mal folgendes versuchen:
  
  Code (perl): (dl )
  
  1 2 3
  
  for my $i ( 0 .. $#{$objlist} ) { logger->debug( "$i ". $objlist->[$i]->modulname ); } # for
  
  3. Musst du in Perl generell nichts casten. Das passiert alles automatisch. Wenn in dem Array, das du an die Funktion übergibst Objekte drin sind, dann kannst du sie auch direkt als solche verwenden:
  
  Code (perl): (dl )
  
  1 2 3
  
  sub foo { print pop->[0], "\n" } my @objs = map bless([rand $_]), 1..10; $_->foo for @objs;
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +4 replies
  - Gast kajoxx
    
    2009-12-04 12:13
    
    Hallo,
    
    ich habe mein Script nach deiner Vorlage umgeschrieben und es funktionert jetzt. Vielen Dank.
    
    mein Problem lage in der Defreferenzierung von: $objlist
    
    logger->debug( "$i ". $objlist->[$i]->modulname );
    
    Ist das so zu verstehen, dass ich mit dem ersten "->" das Array dereferenziere um auf den Index zuzugreifen zu können ?
    
    Kannst du mir bitte das Codebeispiel genauer erklären?
    
    sub foo { print pop->[0], "\n" }
    my @objs = map bless([rand $_]), 1..10;
    $_->foo for @objs;
    
    Was mir noch nicht so ganz klar ist die Dereferenzierung. Hast du da noch ein paar Tips oder Beispiele, welche die Unterschiede herausheben?
    
    @{$var} oder ${$var}
    - +2 replies
    - pktm
      
      2009-12-04 12:43
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Mir hat da die Lektüre von perlreftut geholfen. Eventuell ist das auch was für dich.
      http://www.intergastro-service.de (mein erstes CMS :) )
      - renee
        
        2009-12-04 13:01
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        perlreftut haben wir auch auf auf deutsch
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
    - MatthiasW
      
      2009-12-04 15:59
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Guest kajoxx
      logger->debug( "$i ". $objlist->[$i]->modulname );
      
      Ist das so zu verstehen, dass ich mit dem ersten "->" das Array dereferenziere um auf den Index zuzugreifen zu können?
      
      Ganz genau. Es geht allerdings auch anders: ${$objlist}[$i]->modulname;
      Aber sieh dir dazu am besten die bereits genannte perldoc (perlreftut) an.
      
      Guest kajoxx
      Kannst du mir bitte das Codebeispiel genauer erklären?
      
      Code (perl): (dl )
      
      1 2 3
      
      sub foo { print pop->[0], "\n" } my @objs = map bless([rand $_]), 1..10; $_->foo for @objs;
      
      Es soll nur verdeutlichen, dass man in Perl nicht zu casten braucht.
      In der zweiten Zeile werden 10 Objekte erzeugt, die allesamt eine Zufallszahl beinhalten.
      Die Subroutine foo() gibt die, in dem jeweiligen Objekt gespeicherte Zufallszahl aus.
      In der dritten Zeile laufe ich über alle Objekte und rufe für sie jeweils die foo() Methode auf.
      
      Guest kajoxx
      Was mir noch nicht so ganz klar ist die Dereferenzierung. Hast du da noch ein paar Tips oder Beispiele, welche die Unterschiede herausheben?
      
      @{$var} oder ${$var}
      
      Im ersten Fall sollte $var eine Referenz auf ein Array und im zweiten Fall eine Referenz auf einen Skalar enthalten, man bekäme jeweils das Array bzw. Skalar zurück. Die geschweiften Klammern wären hier unnötig, diese braucht man nur, um perl zu verdeutlichen, was man dereferenzieren möchte. In der von mir geposteten for-Schleife hätte ich die geschweiften Klammern im Ausdruck $#{$objlist} auch weglassen können, allerdings war ich mir zu dem Zeitpunkt unsicher, deshalb habe ich sie lieber gesetzt :)
      Ansonsten kann ich dir nur empfehlen die perldocs zum Thema Referenzen durchzulesen. Hier alle dort enthaltenen Informationen nocheinmal zu posten wäre unsinnig ;)
      
      MfG
      Last edited: 2009-12-04 16:02:11 +0100 (CET)
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2009-12-03 21:33.