Opened by Gast at 2006-07-10 14:00
@renee: Danke, aber ich meine das erste Program mit der Vergleichung... Und für das zweite habe ich solche Variante:
Aber das erste funktioniert. leider nicht ...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use open ':utf8';
binmode (STDOUT, ":utf8");
use vars qw(@zeile $i $k);
open (FH, "<adult1ru_utf8.neg") or die "NEG nicht da\n";
while (<FH>){
chomp ($zeile[$i++] = $_);
if ($zeile[$i-1] =~ /sa[0-9]{3}s[0-9]{2}/){print "$zeile[$i-2]\n";}
}
close (FH);
Aber das erste funktioniert. leider nicht ...