Thread differenz zwischen zwei arrays (23 answers)
Opened by Gast at 2003-10-22 16:36

betterworld
 2003-10-22 17:17
#66660 #66660
User since
2003-08-21
2613 Artikel
ModeratorIn

user image
OK. Wie gesagt die Frage, wie man Differenz definiert. Nach Deiner Def. programmiert man vielleicht so:
Code: (dl )
1
2
3
4
5
6
7
use strict;
my @ar1=qw/1 2 2 3 3 3 4 4 4 4/;
my @ar2=qw/1 2 3 4/;
my %ar2;
$ar2{$_} ++ for @ar2;
my @ar3 = grep {not($ar2{$_} and $ar2{$_}--)} @ar1;
print "$_\n" for @ar3;


Nach einigen Edits sind jetzt alle Bugs raus. Vertraegt sich nur nicht mit use warnings;\n\n

<!--EDIT|betterworld|1066833820-->
Lieblingsmodule: CPAN:IPC::System::Simple, CPAN:Path::Class

View full thread differenz zwischen zwei arrays