文件名转换

use URI::Escape;

$a='file:///mnt/music/%D5%C5%D1%A7%D3%D1/%CD%FC%BC%C7%C4%E3%CE%D2%D7%F6%B2%BB%B5%BD.mp3';
print $a."\n";

$a =~ s/(%)(..)/chr (oct "0x".$2)/ge;
print $a."\n";

print URI::Escape::uri_escape("$a"),"\n";

print URI::Escape::uri_unescape("$a"),"\n";