Thread Bitte um Hilfe für eine Studentin bei PERL Aufgaben!! (71 answers)
Opened by Anna_mary at 2010-06-20 14:34

hlubenow
 2010-06-21 22:13
#138690 #138690
User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]
Ok, nachdem ich Teil 1 in Perl schon gepostet habe, schreib' ich euch nicht auch noch Teil 2 in Perl, sonst könntet ihr das ja so abgeben und würdet nichts lernen (und die Lehrerin hintergehen). Aber ich schreib' noch Teil 2 in Python (2.4) (das ist jetzt also nicht Perl):
Code (python): (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
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.'

Obwohl es nicht Perl ist, kann es vielleicht trotzdem ein Ausgangspunkt sein. Dann müßt ihr noch in Perl einen "Hash von Hash" implementieren.
Leider ist damit etwas schwieriger umzugehen als mit einem "Dictionary von Dictionary" in Python (s.o.). Dazu dann also bitte nochmal gezielt nachfragen und Ansätze posten.

Gruß
Last edited: 2010-06-21 22:14:51 +0200 (CEST)

View full thread Bitte um Hilfe für eine Studentin bei PERL Aufgaben!!