Opened by Gast at 2004-03-11 17:03
Hallo,
ich habe ein ziemlich kompliziertes Problem zu lösen, wäre für jede Hilfe unendlich dankbar:
Ich habe 2 Textdateien.
Eine ist wie folgt aufgebaut:
dieser File enthält ca 6000 solcher Records.
Ich muss diesen File mit einem anderen abgleichen, der ca 600 Records enthält, welcher so aufgebaut ist:
jeder dieser records entspricht einem Record des ersten Files, und zwar immer zwischen Zeichen 395 und 410.
Ich muss nun herausfinden, welche der Records aus File 2 sich in File 1 befinden und diese Zeilen dann herauslöschen.
Mein Ansatz ist so:
Hier komm ich nun aber nicht mehr recht weiter...
Kann mir bitte jemand helfen?
Danke im Vorraus,
HM
ich habe ein ziemlich kompliziertes Problem zu lösen, wäre für jede Hilfe unendlich dankbar:
Ich habe 2 Textdateien.
Eine ist wie folgt aufgebaut:
Quote0402100397988BZ ALTREI B. JOHANNES ZWERGER PLATZ 5 39040 DIREZIONE DIDATTICA PER LA SCUOLA LINGUA TEDESCA ORA NON RICON.87932000471882144 001ED0DSCUOLE DI INSEGNAMENTO PUBBLICO S 80024320212 2K040487827000000001*
dieser File enthält ca 6000 solcher Records.
Ich muss diesen File mit einem anderen abgleichen, der ca 600 Records enthält, welcher so aufgebaut ist:
Quote00099430217
jeder dieser records entspricht einem Record des ersten Files, und zwar immer zwischen Zeichen 395 und 410.
Ich muss nun herausfinden, welche der Records aus File 2 sich in File 1 befinden und diese Zeilen dann herauslöschen.
Mein Ansatz ist so:
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
28
29
30
31
32
33
#!/usr/bin/perl
open(F1, "/home/hallohallo/sales/seatTOT") || die "Can't open the file: seatTOT\n";
while (<F1>) {
chop;
push (@SEAT , $_);
$newSEAT = substr(@SEAT, 394, 16);
}
close (F1);
open(F2, "/home/hallohallo/sales/CLIENTI_BKOM") || die "Can't open the file CLIENTI_BKOM\n";
while (<F2>) {
chop;
$PI{$_} = 1;
}
close (F2);
#$newSEAT = $newSEAT {substr($PI, 394, 16)};
foreach $LL (@SEAT) {
if ($newSEAT{$LL} == 1) {
print $LL . "\n";
}
}
#print $SEAT[2000];
exit;
~
Hier komm ich nun aber nicht mehr recht weiter...
Kann mir bitte jemand helfen?
Danke im Vorraus,
HM