Opened by Gast at 2004-06-23 13:03
User since
2003-08-15
692 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
692 Artikel
BenutzerIn
mal ohne geschachtelte Schleifen, könnte sogar schneller sein:
\n\n
<!--EDIT|steffenw|1087983476-->
Code: (dl
)
1
2
3
4
5
6
7
8
my @daten = ("R300","C12","F2","R12");
my @daten2 = ("R30","C12","F2","R12");
# Menge 1 bilden
my %daten = map +($_ => undef), @daten;
# Subtrahiere von der 1. Menge die 2.
delete @daten{@daten2};
# Ergebnis: nur noch R300
print keys %daten;<!--EDIT|steffenw|1087983476-->
$SIG{USER} = sub {love 'Perl' or die};