Help for this page

Select Code to Download

Select or download this

use File::Spec::Win32;
my $ScriptDir="C:\\temp\\\\";
print $ScriptDir,"\n";   # => C:\temp\\
$ScriptDir = File::Spec::Win32->canonpath($ScriptDir);
print $ScriptDir,"\n";   # => C:\temp