Как получить полный путь Win32 из 8.3 пути DOS с Perl?

Question

Мой вопрос в основном говорит обо всем. Я получаю это:

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

и я хочу это:

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

Я посмотрел на File :: Spec :: Win32, но там, похоже, не было ничего, что могло бы помочь.

Идеи

Спасибо!

Answer 1

Вы можете использовать Win32::GetLongPathName($path) из модуля Win32.

Answer 2

Win32::GetLongPathName() - это все, что вам нужно.