Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 44
Teilbäume:
+72 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
my %hash;
$hash{"Top"} = "29.99";
$hash{"Jeans"} = "99.99";
$hash{"Hose"} = "49.99";
$hash{"Sandaletten"} = "19.99";
foreach my $key (keys %hash) {
print "$key: $hash{$key}\n";
}
+26 replies![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+25 replies
+24 replies
1 2 3 4 5
my $input = <STDIN>; chomp $input; # zeilenumbruch entfernen # oder kürzer: chomp( my $input = <STDIN> );
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
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+23 replies
+22 replies
1 2 3 4 5 6 7 8 9
while (1) { print "Bitte Produktnamen oder 'Ende' eingeben: "; chomp( my $input = <STDIN> ); last if $input eq 'Ende'; } print "Ihre bestellung ist im Einkaufskorb"; } else {exists $hash{$input}; print "Das Artikel wurde in Ihren Einkaufskorb hingelegt"
+10 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+9 replies
+5 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+4 replies
+2 replies
2010-06-20T15:44:38 Anna_mary[...]
und wenn ich ein wenig mehr ahnung hatte , konnte ich es schaffen... Na, ja... Was soll ich bitte machen??
2010-06-20T15:12:05 Anna_mary[...]
ich habe nur dieses semester ein modul mit programmierung... und bestimmt werde ich auch nie mehr zukünftlich brauchen...
+3 replies
Tutorien in der Wiki, mein zeug:
+2 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
my @articles; # array mit den bestellten produktnamen while (1) { print "Bitte Produktnamen oder 'Ende' eingeben: "; chomp( my $input = <STDIN> ); last if $input eq 'Ende'; if (exists $hash{$input}) { print "Danke, Artikel in den Warenkorb gelegt\n"; push @articles, $input; } } # wir brauchen die summe aller preise my $sum = 0; # na dann machen eir eine schleife über @artikel for my $article (@articles) { my $price = $hash{$article}; # wie addiert man eine zahl zu einer bestehenden hinzu? $sum += $price; } # der gesamtpreis steht in $sum
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+14 replies
1 2 3 4 5
my %hash; $hash{"Top"} = "29.99"; $hash{"Jeans"} = "99.99"; $hash{"Hose"} = "49.99"; $hash{"Sandaletten"} = "19.99"
1 2 3 4 5 6 7 8 9
my %hash = ( 'Top' => 29.99, 'Jeans' => 99.99, 'Hose' => 49.99, 'Sandaletten' => 19.99 ); print $_[0],' : ',$_[1],"\n" for each %hash; #oder print "$_ : ",$hash{$_},"\n" for keys %hash;
Tutorien in der Wiki, mein zeug:
+25 replies
+6 replies
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 31 32 33 34 35 36 37 38 39 40 41
#!/usr/bin/env python #-*- coding: iso-8859-1 -*- h = {1 : {"Apfel" : 0.29}, 2 : {"Birne" : 0.34}, 3 : {"Pflaume" : 0.09}, 4 : {"Zitrone" : 0.40}} hk = h.keys() hk.sort() for i in hk: prod = h[i].keys()[0] price = h[i][prod] print "ID: " + str(i) + "\t" + prod + "\t" + str(price) best = [] while True: inp = raw_input("ID der Bestellung: ") if inp == "Ende": break inp = int(inp) if h.has_key(inp): best.append(inp) else: print "Fehler: Produkt nicht vorhanden." print print "Rechnung:"; print "Bestellt wurde:"; sum = 0 for i in best: prod = h[i].keys()[0] price = h[i][prod] print 'Produkt "' + prod + '" (ID: ' + str(i) + ') zum Preis von ' + str(price) + ' Euro.' sum += price print 'Der Gesamtpreis beträgt ' + str(sum) + ' Euro.'
1
2
3
4
5
6
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
h = { 1 : { "name" : "Apfel",
"price" : 2.95 },
2 : { "name" : "Birne",
"price" : 1.95 },
......
}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
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/env python
#-*- coding: iso-8859-1 -*-
h = { 1 : { "name" : "Bananen",
"price" : 2.95 },
2 : { "name" : "Birnen",
"price" : 1.95 },
3 : { "name" : "Pflaume",
"price" : 0.99 },
4 : { "name" : "Zitrone",
"price" : 0.45 }
}
hk = h.keys()
hk.sort()
for i in hk:
print "ID: " + str(i) + "\t" + h[i]['name'] + "\t" + str(h[i]['price'])
best = []
while True:
inp = raw_input("ID der Bestellung: ")
if inp == "Ende":
break
inp = int(inp)
if h.has_key(inp):
best.append(inp)
else:
print "Fehler: Produkt nicht vorhanden."
print "Rechnung:";
print "Bestellt wurde:";
sum = 0
for i in best:
print 'Produkt "' + h[i]['name'] + '"\t(ID: ' + str(i) + ')\t\tzum Preis von ' + str(h[i]['price']) + ' Euro.'
sum += h[i]['price']
print 'Der Gesamtpreis beträgt ' + str(sum) + ' Euro.'
+4 replies
2010-06-21T20:13:24 hlubenowDann müßt ihr noch in Perl einen "Hash von Hash" implementieren.
perlreftut ganz interessant.
+3 replies
+2 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
2010-06-26T16:53:53 pqund was hat renee damit zu tun?
![[Powered by Battie]](/battie/img/powered.png)
