Community  »  Perl: Allgemeines Forum

Buchstaben in Ziffern umwandeln	Seitenanfang
Ich habe ein array @symbol, das maximal 3 Felder lang ist. Jedes Feld enthält einen einzelnen Buchstaben, also z.B. 'bga'. Dann habe ich noch einen hash %werte, dessen key diese Buchstaben sind, und deren value eine Ziffer zwischen 1 und 9 ist; also z.B. $werte{b}=3, $werte{g}=5, $werte{a}=7. Die values ändern sich ständig. Die Buchstaben im array @symbol sollen nun anhand der Ziffern im hash %werte so umgewandelt werden, dass ein numerischer Wert entsteht. Bisher mache ich das mit folgendem code: for $i (0 .. $#symbol) { $wert = $wert.$werte{$symbol[$i]}; } sodaß im gezeigten Beispiel der $wert=357 entsteht. Der Inhalt von @symbol muss erhalten bleiben. Wenn sich die Values im hash %werte ändern, muss das array @symbol neu umgesetzt werden. Meine Vorgehensweise funktioniert auf die gezeigt Art, aber sie erscheint mir wenig elegant und sehr zeitaufwendig. Hat jemand eine bessere Lösung? Datum: 05.07.2008-19:13
re: Buchstaben in Ziffern umwandeln	Seitenanfang
ist doch völlig OK. Nur etwas unperlig ;-) perliger wäre: <code> $wert .= $werte{$_} for (@symbol); # oder - etwas üblicher - for my $char (@symbol){ $wert .= $werte{$char}; } </code> Gruss, Sven Datum: 10.07.2008-14:12
re: Buchstaben in Ziffern umwandeln	Seitenanfang
Hallo, danke für die Antwort. Zu etwas unperlig: ich stamme noch aus dem Zeitalter von Algol, Cobol und Fortran. Grüsse, Willi Datum: 11.07.2008-12:01