Variable in Array schreiben (Allgemeines zu Perl)

[thread]13507[/thread]

Variable in Array schreiben

Leser: 19

Articles: hide open all | hide show old branches

+10 replies
Lumpi

2009-05-11 19:48

User since
2009-05-05
2 Artikel
BenutzerIn

Hallo,

ich habe da mal ein für mich unlösbares Problem :)

Folgedes Array
@a = "jacke","jeans","shirt","$kleidung$","maus","katze","hund","$tier$","$kleidung$","$tier$"

Eigentlich wird das durch eine TXT eingelesen, aber das ist glaub' ich egal.

Jedenfalls muss ich die in Klammern stehenden Elemente, die Platzhalter sind, durch andere Ersetzen.

Dafür gibt es @kleidung und @tiere.

@a =~ tr/'(kleidung)'/$kleidung[1]/;
@a =~ tr/'(tiere)'/$tiere[1]/;

Das war jetzt mein Ansatz, aber irgendwie schein ich da wohl was falsch verstanden zu haben.

Jedenfalls geht es nicht. :)

Gibt es da eine elegantere Lösung?

Lumpi
- Linuxer
  
  2009-05-11 19:53
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Du musst die Ersetzung für jedes Element machen. (edit: es sei denn, du weisst, welches element das ist, dann eben nur für das entsprechende element.)
  Und Du musst s/// dafür verwenden, nicht tr///.
  
  edit2: btw, im String musst Du die Klammern nicht maskieren!
  
  Code: (dl )
  
  1 2
  
  $str = "(kleidung)"; # nicht maskiert $str =~ s/$kleidung$/jacke/; # maskiert
  
  Last edited: 2009-05-11 19:57:14 +0200 (CEST)
  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!
- GwenDragon
  
  2009-05-11 19:53
  
  User since
  2005-01-17
  14563 Artikel
  Admin1
  
  Nee, nicht tr.
  Du muss die Substitution verwenden.
  das ist dann s///
  
  Schau mal in perldoc perlop
  
  Packe lieber Tiere und Kleidung in eigene Arrays. ;)
  Last edited: 2009-05-11 19:57:11 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +7 replies
- topeg
  
  2009-05-11 19:58
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; my @array = qw{jacke jeans shirt (kleidung) maus katze hund (tier) (kleidung) (tier)}; my @kleidung = ("jacke"); my @tiere=("Elephant"); for my $element (@array) { $element=~s/$kleidung$/$kleidung[0]/; $element=~s/$tier$/$tiere[0]/; } print "@array\n";
  
  "my" ergänzt, danke GwenDragon.
  Last edited: 2009-05-11 20:02:33 +0200 (CEST)
  - GwenDragon
    
    2009-05-11 20:01
    
    User since
    2005-01-17
    14563 Artikel
    Admin1
    
    Da fehlen mindestens ein paar mys wegen der strict Deklaration. ;)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +5 replies
  - neniro
    
    2009-05-11 20:11
    User since
    2008-12-14
    79 Artikel
    BenutzerIn
    
    ich könnte schwören, dass dies genau jene Aufgabe ist zu der Hashes passen wie die Faust aufs Auge:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @list = qw{jacke jeans shirt (kleidung) maus katze hund (tier) (kleidung) (tier)}; my %lut = ( "(kleidung)" => "jacke", "(tier)" => "elephant", ); print Dumper [map { exists $lut{$_} ? $lut{$_} : $_ } @list];
    
    -- yet another amateur perl hacker
    - +4 replies
    - Lumpi
      
      2009-05-11 20:30
      
      User since
      2009-05-05
      2 Artikel
      BenutzerIn
      
      Danke erstmal. Jetzt klappt es...halbwegs.
      
      Bei Hashes bin ich btw. noch nicht.
      
      Ich habe das jetzt so gemacht.
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      for my $element (@final_output) { my $counter = @tiere; my $put_in = rand($counter); $element=~s/$tiere$/$tiere[$put_in]/; }
      
      Es sollte für jeden (Platzhalter) ein anderes Element aus dem Array benutzt werden.
      So wird allerdings nur der erste gefundene (Platzhalter) ersetzt.
      
      Ich würde jetzt irgendwie mit einer if Schleife nach (tiere) suchen und dann evtl noch mal die for Schleife ausführen.
      
      Wäre das sinnvoll?
      - pq
        
        2009-05-11 20:37
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-05-11T18:30:30 Lumpi
        Ich würde jetzt irgendwie mit einer if Schleife
        
        es gibt keine if-schleifen:
        Schleife_(Programmierung)
        "Eine Schleife ist eine Kontrollstruktur in Programmiersprachen. Sie wiederholt einen Code-Block [...]"
        
        im gegensatz zu Verzweigung_(Programmierung)
        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
      - Linuxer
        
        2009-05-11 20:39
        
        User since
        2006-01-27
        3875 Artikel
        HausmeisterIn
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        #! /usr/bin/perl use strict; use warnings; my @tiere = qw( hund katze maus ); my @list = qw( affe (tier) fisch (tier) laus ); for my $item ( @list ) { if ( $item eq '(tier)' ) { # setze $item auf ein zufaellig ermitteltes element # aus @tiere; das element wird dabei aus @tiere # entfernt (um doppelte werte zu vermeiden) $item = splice( @tiere, int(rand(@tiere) ), 1 ); } } $, = "\n"; print @list;
        
        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!
      - topeg
        
        2009-05-11 20:40
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        ungetestet:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        for my $element (@final_output) { # "e" bedeutet perl innerhalb des Ersetungsteil ausführen, # nicht nur Variablen ersetzen # "g" bedeutet global arbeiten, alles ersetzen. $element=~s/$tiere$/$tiere[rand(@tiere)]/eg; }
        
        ich hoffe ich habe dich richtig verstanden und "$element" enthält mehrfach geklammerte Elemente "(xyz)"
        Last edited: 2009-05-11 20:43:25 +0200 (CEST)

View all threads created 2009-05-11 19:48.