Opened by Arasiel at 2003-11-12 15:48
User since
2003-11-12
39 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-12
39 Artikel
BenutzerIn
Hallo,
mir wurde das englischsprachige Perlbuch "Perl Cookbook" von O`Reilly zur Verfügung gestellt.
Da ich mit dem von euch geposteten Vergleich-Algorythmus noch nicht richtig zufriden war,
hab ich mal in diesem Buch nachgesehen und einen Vergleich von 2 Arrays gefunden, der
die symmetrische Differenz von 2 Arrays bestimmt.
Der macht genau dass, was ich haben will.
Zur Information möchte ich ihn hier kurz posten, damit ihr ihn auch sehen könnt.
Schönen Gruss.
:)
Bearbeitet von Crian: Code-Tags hinzugefügt\n\n
<!--EDIT|Crian|1068718553-->
mir wurde das englischsprachige Perlbuch "Perl Cookbook" von O`Reilly zur Verfügung gestellt.
Da ich mit dem von euch geposteten Vergleich-Algorythmus noch nicht richtig zufriden war,
hab ich mal in diesem Buch nachgesehen und einen Vergleich von 2 Arrays gefunden, der
die symmetrische Differenz von 2 Arrays bestimmt.
Der macht genau dass, was ich haben will.
Zur Information möchte ich ihn hier kurz posten, damit ihr ihn auch sehen könnt.
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
...
my @union = my @isect = my @diff = ();
my %union = my %isect = ();
my %count = ();
my $e;
foreach $e (@array1, @array2)
{
$count{$e}++
}
foreach $e (keys %count)
{
push(@union, $e);
if ($count{$e} == 2)
{
push @isect, $e;
}
else
{
push @diff, $e;
}
}
$listbox->insert('end', @diff); # Ausgabe in Listbox (Perl/TK)
...
Schönen Gruss.
:)
Bearbeitet von Crian: Code-Tags hinzugefügt\n\n
<!--EDIT|Crian|1068718553-->