Opened by pktm at 2007-01-21 12:00
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
[quote=Ronnie,21.01.2007, 11:34]Hier mal ein Snippet wenn du z.B. nach einer bestimmten idref suchst und wissen willst unter welchem key diese in %s vorkommt:
Wobei sich solche Sachen ab einer gewissen Komplexität mit OO besser lösen lässt![/quote]
Ja, das sieht doch gut aus, so ähnlich habe ich es auch versucht, nur scheitere ich immer an eben jener Komplexität :)
Danke!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub search_idref {
my $haystack = shift;
my $needle = shift;
my @pitchfork = sort keys %$haystack;
my @solutions;
for my $p (@pitchfork) {
push @solutions, $p if grep
{ $_->{'idref'} eq $needle } @{$haystack->{$p}->{'edge'}};
}
return @solutions;
}
print Dumper search_idref( \%s, 's241_506' );Wobei sich solche Sachen ab einer gewissen Komplexität mit OO besser lösen lässt![/quote]
Ja, das sieht doch gut aus, so ähnlich habe ich es auch versucht, nur scheitere ich immer an eben jener Komplexität :)
Danke!
http://www.intergastro-service.de (mein erstes CMS :) )