Opened by Gast at 2006-07-10 14:00
Würden sie so nett mir ein bisschen zu helfen. Es gibt 2 text files. Im ersten gibt es Sätze(jeder vor neuen Zeile) mit Interpunktionszeichnen und im zweitem befinden sich nur ein Teil dieser Sätze ohne Kommas, Punkte, Doppelpunkte e.t.c. Die Aufgabe ist diese 2 files zu vergleichen und danach löschen im ersten file diese Zeile die schon im zweiten existieren.
Ich bin sehr dankbar wenn sie mir bei dieser Code helfen oder dazu neue Ideen bringen:
Ich bin sehr dankbar wenn sie mir bei dieser Code helfen oder dazu neue Ideen bringen:
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
#!/usr/bin/perl
use strict;
#use locale;
my %src=();
open (FILE1,'eng_text1.txt') or die ("Pruefen Sie bitte die Name.");
open (FILE2,'eng_text2.txt') or die ("Pruefen Sie bitte die Name.");
while(<FILE2>) {
chomp;
s/\s{2,}/ /go;
$src{$_}=1;
}
#close (FILE2);
my $dst;
while(<FILE1>) {
$dst=$_;
chomp;
lc;
s/[:punct:]//go;
s/\s{2,}/ /go;
print $dst unless ($src{$_});
}
#close(FILE1);