Opened by Gast at 2005-02-22 16:10
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
[quote=phaylon,22.02.2005, 19:51]Ungetestet:
oder
[/quote]
Die letzte Zeile sollte wohl eher so aehnlich lauten:
Also im Zusammenhang:
(ungetestet)
Code: (dl
)
push @felder, $1 if /^([a-z]+),/i;
oder
Code: (dl
)
1
2
3
my $days = join '|', qw( Montag Dienstag ); #fortsetzen
# und im while:
push @felder, $1 if /^($days),/i;
Die letzte Zeile sollte wohl eher so aehnlich lauten:
Code: (dl
)
s~($days)~<mark>$1</mark>~g;
Also im Zusammenhang:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use warnings;
my @stichworte;
open (EINTRAEGE, "eintraege.txt") or die $!;
while (<EINTRAEGE>) {
push @stichworte, $1 if /^(\w+),/;
}
close EINTRAEGE;
# Regex zusammenbasteln
my $verodert = join '|', @stichworte;
while (<>) { # lies von STDIN oder aus Dateien aus @ARGV
s~($verodert)~<mark>$1</mark>~gi;
print;
}
(ungetestet)