Opened by supersucker at 2005-04-30 17:57
User since
2005-03-17
118 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-03-17
118 Artikel
BenutzerIn
danke für den hinweis, habs jetzt folgendermassen (sozusagen idiotensicher) gemacht:
ich versteh zwar nicht die syntax von
aber jetzt tut der code zumindest das was er soll.......:-)
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
34
35
for my $i (1..$numberOfBestFrags)
{
my $index = 0;
my $maxGoodness = 0;
for our $firstHashKey (keys %fragmentResultSetH)
{
for our $secondHashKey (keys %{ $fragmentResultSetH{$firstHashKey} } )
{
if($secondHashKey =~ m/goodness/)
{
my $tmp = $fragmentResultSetH{$firstHashKey}{$secondHashKey};
if($tmp > $maxGoodness)
{
$maxGoodness = $tmp;
$index = $firstHashKey;
}
}
}
}
push @tenBestFrags, $fragmentResultSetH{"$index"};
delete $fragmentResultSetH{"$index"};
}
ich versteh zwar nicht die syntax von
Code: (dl
)
for our $secondHashKey (keys %{ $fragmentResultSetH{$firstHashKey} } )aber jetzt tut der code zumindest das was er soll.......:-)