✔ Array durchsuchen!

[downset04]

Hallo

Ich pushe so push(@elements,{elementname => $name}); auf ein array -
wie kann ich nun das @elements nach zb elementname "foo" durchsuchen und es rauspicken? oder schauen ob "foo" vorkommt?
Wie geht das mit grep?
normales array geht ja so z.B-> my @HTML_Dateien = grep(/\.htm/,@Eintraege);

thx

 

[renee]

ungetestet:

my @with_element_foo = grep{(keys %$_)[0] eq 'foo'}@elements;

 

[downset04]

hallo es geht nicht, er findet test nicht?

my @element;
push(@element,{element => "test"}); 
push(@element,{element => "tt"}); 
push(@element,{element => "tsdft"}); 
my @with_element_foo = grep{(keys %$_)[0] eq 'test'}@element;
print @with_element_foo;

 

[renee]

Ersetz mal 'keys' durch 'values'

 

[downset04]

mm da kommt sowas HASH(0x8166c28) raus!

 

[renee]

Ja klar, Du schiebst ja auch anonyme Hashes in das Array.

Am besten schreibst Du mal ganz genau was Du hast und was Du am Ende raushaben willst.

 

[downset04]

hallo - wahr gefunden oder test als antwort!

 

[renee]

my @element;
push(@element,{element => "test"}); 
push(@element,{element => "tt"}); 
push(@element,{element => "tsdft"}); 
my $count = grep{(values %$_)[0] eq 'test'}@element;
print "$count Elemente mit 'test' gefunden\n";

my @element;
push(@element,{element => "test"}); 
push(@element,{element => "tt"}); 
push(@element,{element => "tsdft"}); 
my @with_element_foo = grep{$_ eq 'test'}map{(values %$_)[0]}@element;
print @with_element_foo;

 

[downset04]

vielen dank!