sub hashify { my $var; my $p = shift; $p =~ s#^/##; # remove leading slash $p =~ s#/$##; # remove trailing slash $p =~ s|/|"}->{"|g; # build hashref syntax eval '$var->{"'.$p.'"}="somevalue"'; # ...and eval into $var return $var; # which is returned }
Eeek! eval() is evil!