Anonymous

sub translate_template 
  {
    my (@tmpl, %rules) = ($$_[0], $$_[1]);
    my $str = "";

    for (@tmpl)
      { 
        s{/}{};
        $str .= "/".((exists $rules{$_}) ? $rules{$_} : $_);
        exists $rules{$str} and $str = $rules{$str};
      }

    return $str;
  }