Opened by Gast at 2006-07-10 14:00
Vielen dank für wertvolle Hilfe. Ich hatte auch änliches Idee, aber auf diese Grund, dass ich nicht so stark in PERL bin, war es für mich fast unerfüllbar. Darf ich bitte noch eine Frage an Sie stellen?
Leider bin ich nicht root an meinem Computer, so kann ich nicht Tei::IxHash libs installieren und meines Programm prüfen. Seien Sie so nett nächsten Code durchzushauen und zu sagen, Ihre Meinung nach, ob dort irgendwelcher Fehler gibt. Ist es ganz blöde oder gibt dort kleines Stück gesundes Sinnes?
Danke im voraus.
Leider bin ich nicht root an meinem Computer, so kann ich nicht Tei::IxHash libs installieren und meines Programm prüfen. Seien Sie so nett nächsten Code durchzushauen und zu sagen, Ihre Meinung nach, ob dort irgendwelcher Fehler gibt. Ist es ganz blöde oder gibt dort kleines Stück gesundes Sinnes?
Danke im voraus.
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
#!/usr/bin/perl
use strict;
use Tie::IxHash;
tie %hash1,%hash2,"Tie::IxHash,APP";
my %hash1=();
open(APP,"eng_test1.txt");
#open(NEG,'eng_test2.txt');
while(<APP>) {
chomp;
@keys=keys %hash1;
}
close (APP);
open(NEG,"eng_text2.txt");
while(<NEG>) {
chomp;
@keys=keys %hash2;
}
close(NEG);
open(OUT,">saetze_hash.txt")
my @not=();
foreach(keys %hash1){
push(@not,$_) unless exists $hash2{$_};
}
close(OUT);