Opened by Gast at 2008-12-10 12:03
Hii,
ich möchte aus mehreren Datensätzen die doppelten Einträge entfernen. Die Datensätze sehen folgendermaßen aus:
Mein Code das ich darüber laufenlasse sieht folgendermaßen aus:
Leider bekomme ich nicht den gewünschten Effekt, d.h. die doppelten Einträge werden nicht gelöscht..
Kann mir jemand sagen, was ich falsch mache ?
Grüße,
Kamil
ich möchte aus mehreren Datensätzen die doppelten Einträge entfernen. Die Datensätze sehen folgendermaßen aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
5.0 2.08 9.496 23
10.0 2.08 5.917 39
10.0 2.08 5.917 39
15.0 1.02 6.823 75
20.0 1.01 14.810 80
20.0 1.01 14.810 80
25.0 1.61 27.117 37
30.0 1.61 71.563 72
30.0 1.61 71.563 72
Mein Code das ich darüber laufenlasse sieht folgendermaßen aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
open (in,"filter.txt")|| die "filter.txt file found!";
open (out,">filter_output.txt")|| die "filter_output.txt file found!";
my @array = <in>;
%ha = map{ $_, 1 }@array;
@array_u = keys %ha;
@array_u = sort keys %ha;
foreach(@array_u)
{
print out "$_\n"
}
close(in);
close(out);
Leider bekomme ich nicht den gewünschten Effekt, d.h. die doppelten Einträge werden nicht gelöscht..
Kann mir jemand sagen, was ich falsch mache ?
Grüße,
Kamil