How do I get full Win32 path from 8.3 DOS path with Perl?

问题

My question basically says it all. I am getting this:

C:\DOCUME~1\frew\MYDOCU~1\Code\AIRCRA~1\lib\ACD\VALIDA~1.PM

and I want this:

C:\Documents and Settings\frew\My Documents\Code\aircraft_ducting\lib\ACD\Validators.pm

I looked at File::Spec::Win32 but that didn't seem to have anything that would do the trick.

Ideas?

Thanks!

回答1:

You can use Win32::GetLongPathName($path) from the Win32 module.

回答2:

Win32::GetLongPathName() is all you need.

来源：https://stackoverflow.com/questions/770171/how-do-i-get-full-win32-path-from-8-3-dos-path-with-perl