Thread Eindeutige Abkürzungen identifizieren (16 answers)
Opened by mordur at 2005-01-07 14:09

format_c
 2005-01-07 14:53
#50624 #50624
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Achso. Dann würde brauchst du doch eigentlich kein Hash. Oder wenn du es vorgegeben hast geht auch values %hash

Ich habe mir mal erlaub ein Array draus zu machen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
format_c@server:~/perl_scripts> cat test.pl && perl test.pl Be
use strict;

my @array=("Ambiente","Bediener","Blumen","Kellner","Beleuchtung");

chomp (my $eingabe = shift);


if (scalar(my ($wert)=grep(/$eingabe/,@array)) == 1) {
        print "Abkuerzung $eingabe => $wert\n";
}
else {
        die "Keine gueltige Abkuerzung\n";
}

Keine gueltige Abkuerzung
format_c@server:~/perl_scripts>

Jetzt?

Gruß Alex
Effizente Linuxshell

View full thread Eindeutige Abkürzungen identifizieren