Opened by Gast at 2005-02-22 16:10
User since
2005-02-22
2 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-02-22
2 Artikel
BenutzerIn
hallo,
vielen Dank, an allen für die Hilfe.
hier der Code:
der Script funktioniert aber es werden auch solche wörter markiert die ich nicht markieren will. Bsp im Satz:
Montagabend gehe ich.. wird markiert: <mark>Montag</mark>abend gehe ich..
Also ich will nicht dass Montagabend markiert wird, aber Montag schon. Wie kann mann des Umgehen?
edit renee: ne Runde [code]-Tags spendiert\n\n
<!--EDIT|renee|1109115898-->
vielen Dank, an allen für die Hilfe.
hier der Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
use strict;
use warnings;
my @file;
my @stichworte;
open(FILE1, $ARGV[0])|| die "could not open file";
while (<FILE1>) {
push @stichworte, $1 if /^(\w+),/;
}
close FILE1;
# Regex zusammenbasteln
my $verodert = join '|', @stichworte;
open(FILE2, $ARGV[1])|| die "could not open file";
while (<FILE2>) { # aus Dateien aus @ARGV
s~($verodert)~<mark>$1</mark>~gi;
push @file, $_;
print @file;
}
close FILE2;
der Script funktioniert aber es werden auch solche wörter markiert die ich nicht markieren will. Bsp im Satz:
Montagabend gehe ich.. wird markiert: <mark>Montag</mark>abend gehe ich..
Also ich will nicht dass Montagabend markiert wird, aber Montag schon. Wie kann mann des Umgehen?
edit renee: ne Runde [code]-Tags spendiert\n\n
<!--EDIT|renee|1109115898-->