Opened by hugenyn at 2012-01-28 01:17
User since
2011-03-19
3500 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2011-03-19
3500 Artikel
BenutzerIn
Ja, freilich. Es kommt auch darauf an, was in meinem Hash-Slice zum Key oder zum Value wird: Mann- oder Frau-Array ;)
Sofern es Überhänge gibt (Zuviele Frauen) würde der Slice eine Warnung erzeugen, diese kann jedoch vorzüglich über %SIG abgefangen werden:
Sofern es Überhänge gibt (Zuviele Frauen) würde der Slice eine Warnung erzeugen, diese kann jedoch vorzüglich über %SIG abgefangen werden:
Code (perl): (dl
)
1 2 3 4 5 6 7 8
my @frau = qw /bl ge gr br sw rt foo bar/; my @mann = qw /ge bl bl br sw rt foox/; my $w = 0; # Anzahl der Frauen, die zuviel sind local $SIG{__WARN__} = sub{$w++}; my %h = (); @h{@frau} = @mann; my $anz = grep{ $h{$_} eq $_ }keys %h; print "Paare: $anz", "Frauen-Überzahl: $w";