VPF::Как узнать путь формата 8.3 с помощью перла?

Perl_sapiens

Дата 23.2.2008, 01:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 19.2.2008

Репутация: нет
Всего: нет

Задача:
имеется путь: C:\Documents and Settings\All Users\
нужно его переформировать в Путь формата 8.3: C:\DOCUME~1\ALLUSE~1\

Вопрос: как это сделать средствами WinAPI?
И как это в обе стороны переделывать?

Это сообщение отредактировал(а) Perl_sapiens - 9.5.2008, 00:14

nitr

Дата 23.2.2008, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

А почему в FAQ написали?

Код

#!perl
use Win32;

print Win32::GetShortPathName( $path );

Код

#!perl
use Win32::API;

my $path_or_file = 'C:\Documents and Settings\All Users\\';
my $lpBuffer = ' ' x 260;

my $function = Win32::API->new('kernel32', 'GetShortPathName', 'PPN', 'N');
die "Can't import function $!\n" unless defined $function; 
my $return = $function->Call($path_or_file, $lpBuffer, 260);
print substr($lpBuffer, 0, $return);

Это сообщение отредактировал(а) nitr - 23.2.2008, 11:54

--------------------

I love ArchLinux

Perl_sapiens

Дата 23.2.2008, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 19.2.2008

Репутация: нет
Всего: нет

Потому что не знал куда точно этот вопрос кинуть smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »