sub path2hash { my ($p) = @_; return if not $p; my ($head, $tail) = $p =~ m!/?([^/]+)(.*)!; @_ = ($tail, $_[1]->{ $head } = {}); goto &path2hash; }
OK but rather a lot
Next