91
Perl / Трабл с хэшем
« : 24 Ноября 2006, 05:47:07 »
Есть например хэш
%hash = (
"text" => {
type=>"".&get_types(%hash)."",
name="text"
},
"textarea" => {
type=>"".&get_types(%hash)."",
name="textarea"
}
);
sub get_types {
my %get_types = @_;
my $keys = "";
foreach(sort keys %get_types) {
if(exists($get_types{$_}) {my $keys .= "$_;"}
}
return $keys;
}
собственно с помощью функции get_types должны изыматься ключи хэша, но хэш не передаётся в функции...я так понимаю это из-за того что он передаётся из самого себя...может как то можно решить?
%hash = (
"text" => {
type=>"".&get_types(%hash)."",
name="text"
},
"textarea" => {
type=>"".&get_types(%hash)."",
name="textarea"
}
);
sub get_types {
my %get_types = @_;
my $keys = "";
foreach(sort keys %get_types) {
if(exists($get_types{$_}) {my $keys .= "$_;"}
}
return $keys;
}
собственно с помощью функции get_types должны изыматься ключи хэша, но хэш не передаётся в функции...я так понимаю это из-за того что он передаётся из самого себя...может как то можно решить?