hi,
Danke dir!
Bräuchte aber noch genauere Infos zu dem Hashthema.
Wie funktioniert das?
#!/usr/bin/perl
################################################
use strict;
my %h;
@h{qw(eins zwei drei der die das)} = (1..6);
print join("\n", keys %h), "\n\n--------\n\n"; # hier haste noch alle
my @stopwords = qw(der die das);
delete @h{@stopwords};
print join("\n", keys %h), "\n"; # no stopwords
Hotte
--
Wenn der Kommentar nicht zum Code passt, kann auch der Code falsch sein.
Wenn der Kommentar nicht zum Code passt, kann auch der Code falsch sein.