Opened by Anna_mary at 2010-06-20 14:34
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
und woran hapert es bei 1b?
ohne genaue info, was du schon kannst, kann man dir entweder gar nicht helfen oder ins blaue beliebig viel code schreiben.
benutzereingaben einlesen kann man so:
Das ganze machst du in einer Schleife.
Jetzt prüfst du, ob $input gleich "Ende" ist und machst dann die Kontrollausgabe der Bestellung. Wenn nicht, prüfst du mit exists, ob $input als Key im Hash existiert. Wenn ja, fügst du der Bestellliste das Produkt hinzu.
das mal so als anfang.
edit: typo
Last edited: 2010-06-20 15:20:56 +0200 (CEST)
ohne genaue info, was du schon kannst, kann man dir entweder gar nicht helfen oder ins blaue beliebig viel code schreiben.
benutzereingaben einlesen kann man so:
Code (perl): (dl
)
1 2 3 4 5
my $input = <STDIN>; chomp $input; # zeilenumbruch entfernen # oder kürzer: chomp( my $input = <STDIN> );
Das ganze machst du in einer Schleife.
Code (perl): (dl
)
1 2 3 4 5 6 7
while (1) { print "Bitte Produktnamen oder 'Ende' eingeben: "; chomp( my $input = <STDIN> ); last if $input eq 'Ende'; ... } # Ausgabe der Bestellung
Jetzt prüfst du, ob $input gleich "Ende" ist und machst dann die Kontrollausgabe der Bestellung. Wenn nicht, prüfst du mit exists, ob $input als Key im Hash existiert. Wenn ja, fügst du der Bestellliste das Produkt hinzu.
das mal so als anfang.
edit: typo
Last edited: 2010-06-20 15:20:56 +0200 (CEST)
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
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem