Change relative path to absolute path

I have a path like
"/root/Tools/Log/../../Bin2/Patch/../Settings/ServerInfo/", and it's
absolute path should be "/root/Bin2/Settings/ServerInfo".
and I use these codes to get what I want.

my $my_str = "/root/Tools/Log/../../Bin2/Patch/../Settings/ServerInfo/";
Replace_it: $my_str =~ s#[^\./]+/\.\./##g
and goto Replace_it;
print $my_str . "\n";

Does anyone has a better idea?

• Change relative path to absolute path by Zapp
• Re: Change relative path to absolute path by Magnus Woldrich
• Re: Change relative path to absolute path by Shawn H Corey