Array (Allgemeines zu Perl) - Perl-Community.de

[thread]17790[/thread]

Array

Tags: perl5 constant Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+7 replies
Gast Graf Herschel

2012-09-29 13:06
Hallo

Ich benötige ein array von strings:
use constant MTH_CONST => ["rot","blau","orange"];
Wenn ich schreibe:
MTH_CONST->[0];
funktioniert das
Auf diese strings will ich zugreifen über einen index
Code: (dl )

1 2

for $i (0 .. (MTH_CONST)) MTH_CONST->[$i];
funktioniert nicht
Habe schon alles ausprobiert @,$,(),{},#, aber da steige ich sowieso aus.
Vielleicht weiß das jemand
Danke

modedit Editiert von pq: code-tags
Last edited: 2012-09-29 13:12:44 +0200 (CEST)
- GwenDragon
  
  2012-09-29 13:12
  User since
  2005-01-17
  14746 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use 5.008; use strict; use warnings; use constant MTH_CONST => ["rot","blau","orange"]; print ${\MTH_CONST}->[0];
  
  ergibt:
  rot
  
  ;)
  
  //EDIT:
  Aber eigentlich ist das Erzeugen einer Referenz mit \ und das Dereferenzieren mit ${} total unnötig.
  Ich wollte nur mal zeigen dass sowas geht.
  
  //EDIT2:
  Die Länge des Array lässt sich auch (in Bezug auf mein Dereferenzierungsmethode) mit erfragen:
  
  Code (perl): (dl )
  
  scalar @${\MTH_CONST};
  
  Last edited: 2012-09-29 13:31:54 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- pq
  
  2012-09-29 13:16
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  use constant MTH_CONST => ["rot","blau","orange"]; for my $i (0 .. $#{ MTH_CONST() }) { say MTH_CONST->[$i]; } __END__ rot blau orange
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - Gast Graf Herschel
    
    2012-09-29 13:30
    2012-09-29T11:16:35 pq
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    use constant MTH_CONST => ["rot","blau","orange"]; for my $i (0 .. $#{ MTH_CONST() }) { say MTH_CONST->[$i]; } __END__ rot blau orange
    
    Ich danke dir, es funktioniert.
    
    Code: (dl )
    
    for my $i (0 .. $#{ xyz() })
    
    So sieht das also aus. Wenn man sich nur selten mit Perl beschäftigt, kommt man nie auf solch einen Syntax. Das ist schon fast Cryptologie.
    Die Unterstützung in diesem Forum ist großartig. Nun ist der Frust wieder verschwunden. Vielen Dank.
    Last edited: 2012-09-29 13:32:34 +0200 (CEST)
    - gelöscht 2012-09-29 13:33
- topeg
  
  2012-09-29 13:17
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Bedenke das Konstanten in Perl "nur" Funktionen sind, die du aufrufst.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/usr/bin/perl use strict; use warnings; use constant MTH_CONST => ["rot","blau","orange"]; for my $i (0..$#{MTH_CONST()}) { print "Farbe ($i) = ".MTH_CONST()->[$i]."\n"; }
  
  Nich immer kann Perl erkennen ob du nun eine die "Konstantenfunktion" meinst oder etwas anderes.
- Rone
  
  2012-09-29 18:53
  
  User since
  2008-06-20
  11 Artikel
  BenutzerIn
  
  Evtl. ist es sinnvoller Readonly zu verwenden - da sich er Syntax für den Zugriff auf Elemente nicht ändert.

View all threads created 2012-09-29 13:06.