Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]9222[/thread]

Hash of Array: Arrayelemente zählen

Leser: 1


<< >> 2 Einträge, 1 Seite
Spuki
 2007-07-25 13:03
#78813 #78813
User since
2007-07-13
38 Artikel
BenutzerIn
[Homepage] [default_avatar]
Wie kann ich die anzahl der element des Arrays im entsprechen key abfragen??

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
28
# Filtern der Zahlenwerte von @array2 die zwisschen 1 und 2 
# element von @array liegen

for(my $i=0; $i < scalar(@array); $i++){

$k=0;
foreach (@arrray2){

if($_ >= $array[$i] && $_ <= $array[$i+1] && $array[$i+1] ne "" && $_ ne ""){



my $key = "Key" . "$i";

$src = $_;

$dataSrc{$key}[$k] = $src;

$k++;




}

}

}



das ergibt foglende ausgabe:

%dataSrc = (

Key0 => ['1', '2', '3'] -
Key1 => ['3']
Key2 => ['1', '2']
.
.
.
);


ich will jetzt abfragen welcher key mehr als 1 element besitzt....

mfg spuki
$^="2rehtona 3lrep 1tsuj 4rekcah";@~=sort split/ /,$^;_(
_(_(_())));sub _{print$^=reverse substr$~[0],1;shift@~;}

...erster Versuch eines JAPH :D
Spuki
 2007-07-25 13:09
#78814 #78814
User since
2007-07-13
38 Artikel
BenutzerIn
[Homepage] [default_avatar]
habs selber herausgefunden.....

hier der code:


Code: (dl )
1
2
3
4
5
6
7
8
foreach my $key(sort keys %dataSrc)
{

if(scalar(@{$dataSrc{$key}}) > 1)
{
....
}
}
$^="2rehtona 3lrep 1tsuj 4rekcah";@~=sort split/ /,$^;_(
_(_(_())));sub _{print$^=reverse substr$~[0],1;shift@~;}

...erster Versuch eines JAPH :D
<< >> 2 Einträge, 1 Seite



View all threads created 2007-07-25 13:03.