Opened by mordur at 2005-01-07 14:09
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
@esskar: Lies noch mal den Thread. Dein Code liesse z.B. nicht "Bedien" zu, das aber korrekt sein soll.
@modur: Brauchst du wirklich diesen Hash? Wenn alle eindeutigen Abkuerzungen zulaessig sind, dann ergeben diese sich ja aus der Menge der Schluesselwoerter automatisch. Und dein Problem laesst sich dann mit
Text::Abbrev loesen. ;)
@modur: Brauchst du wirklich diesen Hash? Wenn alle eindeutigen Abkuerzungen zulaessig sind, dann ergeben diese sich ja aus der Menge der Schluesselwoerter automatisch. Und dein Problem laesst sich dann mit
Text::Abbrev loesen. ;)Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
use Text::Abbrev;
my %woerter = abbrev qw/Ambiente Bediener Blumen Kellner Beleuchtung/;
for my $wort (qw/A Bed K Ke Kell Be Z/) {
printf "%-10s => %s\n",$wort, ($woerter{$wort} || "- nicht definiert -");
}
_ _END_ _
A => Ambiente
Bed => Bediener
K => Kellner
Ke => Kellner
Kell => Kellner
Be => - nicht definiert -
Z => - nicht definiert -