Frage zu unshift und push (Allgemeines zu Perl)

[thread]20060[/thread]

Frage zu unshift und push

Tags: perl5 Similar Threads

Readers: 13

Articles: hide open all | hide show old branches

+5 replies
guest 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 )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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)
- +2 replies
- Linuxer
  
  2016-04-22 11:24
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Beide Eingaben, Vorname und Nachname, enthalten NACH dem eingegebenen String einen Umbruch.
  
  Also wird es einmal zu ( "Vorname\n", "Muster" ), und einmal zu ( "Muster", "Nachname\n" );
  
  edit2: Da Du die Ausgabe "nur" mit print machst, wird im zweiten Fall "Muster" ausgeben (ohne Umbruch) und dann eben "Nachname\n".
  
  Funktioniert also wie programmiert. Der Umbruch ist auch beim Nachnamen da, fällt da aber weniger auf...
  
  Weder push() noch unshift() fügen Umbrüche hinzu oder entfernen sie.
  
  Edit:
  
  Ich würde eher bei jeder Eingabe den Umbruch entfernen lassen und bei der Ausgabe selber ausgeben lassen.
  Und am ehesten würde ich auf Term::ReadLine zurückgreifen und damit die Eingaben abfragen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
  
  #! /usr/bin/perl use strict; use warnings; use 5.010; print "Bitte waehlen Sie zwischen 1 oder 2: "; chomp(my $auswahl = <STDIN>); my @name = qw(Muster); if($auswahl == 1){ print "Bitte Vorname eingeben: "; chomp( my $vorname = <STDIN> ); unshift(@name, $vorname); } elsif($auswahl == 2) { print "Bitte Nachname eingeben: "; chomp(my $nachname = <STDIN>); push(@name, $nachname); } else{ say "Bitte nur 1 oder 2 eingeben"; } # jedes Element ausgeben; say = print mit Umbruch am Ende for(my $i = 0; $i <= $#name; $i++){ say $name[$i]; } __END__
  
  Last edited: 2016-04-22 11:33:15 +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!
  - guest Josef_Muc
    
    2016-04-22 11:31
    
    Oh man, da hätte ich auch selber draufkommen können!
    Ich danke dir!
    Last edited: 2016-04-22 11:33:18 +0200 (CEST)
- +2 replies
- Raubtier
  
  2016-04-22 11:37
  User since
  2012-05-04
  1083 articles
  BenutzerIn
  Vielleicht noch was stilistisches:
  
  Code (perl): (dl )
  
  unshift(@name, my $vorname = <STDIN>);
  
  Man muss nicht (und sollte nicht), nur weil es geht, 2 voneinander unabhängige Befehle zusammenfassen.
  
  Was spricht gegen:
  
  Code (perl): (dl )
  
  1 2
  
  my $vorname = <STDIN>; unshift(@name, $vorname);
  
  Vielleicht willst du ja mal das my $vorname = <STDIN>; durch
  
  Code (perl): (dl )
  
  chomp(my $vorname = <STDIN>);
  
  ersetzen?
  
  Hier bei chomp + Zuweisung ist es dagegen ok, das in einer Zeile zu schreiben, finde ich.
  - guest Josef_Muc
    
    2016-04-22 11:47
    Code (perl): (dl )
    
    1 2
    
    chomp(my $nachname = <STDIN>); push(@name, $nachname);
    
    ich hab das jetzt so abgeändert. Danke für den Tipp an euch beide
    Last edited: 2016-04-22 11:51:17 +0200 (CEST)

View all threads created 2016-04-22 11:06.