Opened by schnuffi at 2003-11-10 17:12
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Du möchtest die Schnittmenge zweier Arrays anzeigen, stimmts?
(nämlich etwa der Arrays @$tosca[1] und @$solver[3])
Das müsste ja ungefähr so gehen:
\n\n
<!--EDIT|Crian|1068479028-->
(nämlich etwa der Arrays @$tosca[1] und @$solver[3])
Das müsste ja ungefähr so gehen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use strict;
my @ar1 = ('eins', 'zwei', 'drei', 'vier');
my @ar2 = ('null', 'vier', 'sieben', 'eins');
my @schnitt = array_schnitt(\@ar1, \@ar2);
print "@schnitt";
sub array_schnitt {
my $ar1 = shift;
my $ar2 = shift;
my @result = ();
for my $elem (@$ar1) {
push @result, $elem if grep $elem eq $_, @$ar2;
}
return @result;
}
<!--EDIT|Crian|1068479028-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite