Frage zu unshift und push - #184552 (Allgemeines zu Perl)

Gast Josef_Muc

2016-04-22 11:06

Hallo zusammen,

ich habe eine kurze Frage zu dem Code unten bzw. zu unshift und push

Code (perl): (dl )

chomp(my $auswahl = <STDIN>);
my @name = qw(Muster);

if($auswahl == 1){
    print "Bitte Vorname eingeben: ";
    unshift(@name, my $vorname = <STDIN>);
} elsif($auswahl == 2){
        print "Bitte Nachname eingeben: ";
        push(@name, my $nachname = <STDIN>);
  } else{
        say "Bitte nur 1 oder 2 eingeben";
    }
    
for(my $i = 0; $i <= $#name; $i++){
    print $name[$i];
}

Wenn ich das ausführe, ist die Ausgabe bei unshift in der for Schleife:

Code: (dl )

1
2

Max
Muster

bei push hingegen ist die Ausgabe:

Code: (dl )

MusterMann

Gibt es einen Grund dafür, dass es bei unshift einen Zeilenumbruch gibt und bei push nicht?

Gruß,
Josef
Last edited: 2016-04-22 11:18:08 +0200 (CEST)