|< 1 2 3 4 5 >| | 50 Einträge, 5 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use diagnostics;
my %hash = ('Abend' => 'NN',
'Sonne' => 'NN',
'Haus' => 'NN',
'Abendsonne' => 'NN');
foreach my $element (sort keys %hash) {
if ($element =~ /^$element.+/) {
print $element . "\n";
}
}
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
use strict; use warnings; use Data::Dumper; my %hash = ('Abend' => 'NN', 'Sonne' => 'NN', 'Haus' => 'NN', ); my $text="Haus Abendsonne haussonne hurz"; my $words_re= join '|', keys %hash; my @komposita= $text =~ m/\b(?:$words_re)(?:$words_re)\b/gi; print Dumper \@komposita;
my @komposita= $text =~ m/\b(?:$words_re){2}\b/gi;
LanX-+2008-07-25 17:36:10--Der Computerliguist der seine Hausaufgaben für umme gemacht haben möchte?
1 2 3 4 5
while ( $text =~ m/\b($words_re)($words_re)\b/gi) { my $word1="\u$1"; my $word2="\u$2"; print "$word1 ->" , $hash{$word1},"\n"; }
LanX-+2008-07-25 17:54:16--Aber ich vermute du willst lieber klassisch rangehen mit 3 Schleifen
die erste iteriert über die wörter
die zwote vergleicht den Wortanfang mit allen Komposita
die dritte vergleicht den Wortrest mit allen Komposita
Dingels+2008-07-25 18:00:54--Ja, so in etwa habe ich mir das vorgestellt.
|< 1 2 3 4 5 >| | 50 Einträge, 5 Seiten |