probleme beim programmieren (Zeichenketten verbinden) (Allgemeines zu Perl)

[thread]19565[/thread]

probleme beim programmieren (Zeichenketten verbinden)

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+10 replies
Gast zitrus

2015-03-18 18:24
hallo allerseits (:
arbeite noch nicht lange mit perl und habe da ein Problem mit einer Aufgabe. ich steh da auf der Leitung, wie ich diese -- zwischen den einzelnen Aminosäuren bekommen soll.
also die aufgabe lautet: man soll einen string kreieren, der so aussehen soll: Phe--Val--Asn--Gln--His--Leu--Cys--Gly--Ser--His
man soll string Verknüpfungen in einem foreach Loop verwenden.

also ich hab das bis jetzt:
Code (perl): (dl )

1 2 3 4

@aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser"); foreach $i (@aa) { print $i; };
als Output bekomme: PheValAsnGlnHisLeuCysGlySerHis

jetzt hab ich einfach das so gemacht:
Code (perl): (dl )

1 2 3

foreach $i ("Phe--","Val--","Asn--","Gln--","His--","Leu--","Cys--","Gly--","Ser"){ print $i; };
aber die -- oben einfach miteinzugeben ist ja nicht der sinn oder? :D

könnte mir bitte da jemand helfen? danke!

modedit Editiert von pq: code-tags hinzugefügt
modedit Editiert von GwenDragon: Titel für Suma erweitert
Last edited: 2015-03-19 13:07:59 +0100 (CET)
- +3 replies
- der_thomas
  
  2015-03-18 19:38
  User since
  2013-09-07
  158 Artikel
  BenutzerIn
  Wenn es nicht stört dass nach dem letzten Element auch noch ein '--' kommt, könntest Du es so machen:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my @aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser"); foreach my $i (@aa) { print "$i--"; };
  
  Wenn es ohne '--' am Ende sein soll, ginge es beispielsweise so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my @aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser"); my $ende = pop @aa; # entnimmt das letzte Element und speichert es zwischen foreach my $i (@aa) { print "$i--"; }; push @aa, $ende; # setzt das letzte Element wieder an seinen Platz print "$ende\n";
  
  # gibt das letzte Element aus
  Last edited: 2015-03-18 20:41:17 +0100 (CET)
  - Gast Zitrus
    
    2015-03-19 08:48
    
    Danke!!
    Auf Push und Pop bin ich garnicht gekommen.ist ja wirklich einfach gewesen... :)
    Last edited: 2015-03-19 08:51:03 +0100 (CET)
  - Raubtier
    
    2015-03-19 09:41
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    2015-03-18T18:38:17 der_thomas
    Lösung mit pop und push
    
    Ich halte es für schlechten Stil, das auszugebende Array zu ändern, um es danach zurück zu ändern. Das tut man nicht! Es wird den Leser des Codes nur auf eine falsche Spur bringen.
    
    Zusätzlich gibt es Probleme, wenn das Array leer ist.
    
    Wenn es kein join sein darf und man keinen Index benutzen will, dann eher sowas hier:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    my @aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser"); my $isFirst = 1; for my $i (@aa) { if ($isFirst) { $isFirst = 0; } else { print "--"; } print $i; };
- Raubtier
  
  2015-03-18 20:07
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  Am besten geht das mit join, d.h. ohne for-Loop, wenn man das "man soll" ignoriert :-)
  
  Code (perl): (dl )
  
  1 2
  
  @aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser"); print join "--", @aa;
- betterworld
  
  2015-03-19 11:24
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Wenn ich "String kreieren" und "Stringverknüpfungen" sehe, scheidet "print" in der Schleife ja sowieso aus...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my @aa = ("Phe","Val","Asn","Gln","His","Leu","Cys","Gly","Ser"); my $s = ""; foreach my $i (@aa) { $s .= "--" if $s; $s .= $i; } print $s;
  
  Das einfachste wäre allerdings "join", da sind sich wohl alle einig.
  
  Und über das "my" in meinem Beispiel solltest du dich unbedingt informieren, wenn du noch nicht weißt, was es macht.
  Last edited: 2015-03-19 11:25:30 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class
- +4 replies
- Gast Verzweifelter
  
  2015-03-20 16:40
  Hallo Zitrus,
  
  ich habe zwar auch noch nicht die übertriebe Masse an
  Erfahrung, aber eine spontane Eingebung meinerseits
  war hier :
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  my @Werte = ( "Phe" , "Val" , "Asn" , "Gln" , "His" , "Leu" , "Cys" , "Gly" , "Ser" ); my $Trenner = "--"; foreach my $i ( @Werte ) { print $Trenner . $i; };
  
  @Experts : Wäre auch in Ordnung, oder ?
  - +3 replies
  - GwenDragon
    
    2015-03-20 16:42
    
    User since
    2005-01-17
    14757 Artikel
    Admin1
    
    Dann kommt aber --Phe--Val--Asn--Gln--His--Leu--Cys--Gly--Ser raus.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - Gast Verzweifelter
      
      2015-03-20 16:44
      
      Hi Gwen,
      
      Stimmt. Er möchte ja die 2 Binde - Striche nach
      dem jeweilgen Wert anhängen, hast du natürlich Recht. :-)
      
      Viele Grüße
      Verzwifelter
      Last edited: 2015-03-20 16:46:41 +0100 (CET)
      - GwenDragon
        
        2015-03-20 17:18
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Kein Problem.
        Wer lernt, muss auch Fehler machen ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-03-18 18:24.