probleme beim programmieren (Zeichenketten verbinden) - #180214 (Allgemeines zu Perl)

der_thomas

2015-03-18 19:38

User since
2013-09-07
158 Artikel
BenutzerIn
[default_avatar]

Wenn es nicht stört dass nach dem letzten Element auch noch ein '--' kommt, könntest Du es so machen:

Code (perl): (dl )

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 )

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)