Форум dkLab и Denwer
Здесь общаются Web-разработчики.
Генеральный спонсор:
Хостинг «Джино»

Activeperl урезает имена файлов? (mouseman)
Author Message
mouseman
Заглянувший



Joined: 28 Nov 2010
Posts: 1
Карма: 0
   поощрить/наказать


PostPosted: Sun Nov 28, 2010 9:57 pm (написано за 4 минуты 36 секунд)
   Post subject: Activeperl урезает имена файлов?
Reply with quote

В перле - новичек, так что не пинайте...
Установил денвер и активперл. НаписАл простенький скрипт:

use File::Find;

print "Content-Type: text/html\n\n";
$dir_path = 'C:\home\test1.ru\cgi';
find(\&print_name, $dir_path);

sub print_name {
$outfilename = "";
$lengthname = length($File::Find::name);
$outfilename = "$lengthname $File::Find::name <br>";
print "$outfilename";
}

В указанной папке 3 файла. Один с длинным именем (> 8 символов)
Вывод имен выглядит так:

29 C:\home\test1.ru\cgi/AAABBB~1
29 C:\home\test1.ru\cgi/proba.pl
28 C:\home\test1.ru\cgi/test.pl

Первое имя длиной около 20 символов. Где подевались остальные?? Куда "копать" - не пойму?
PS. Кодировка пробовалась и win1251 b UTF-8. Одинаково
Back to top
View user's profile Send private message
Ant
Сотрудник «Лаборатории»



Joined: 17 Jun 2003
Posts: 6837
Карма: 131
   поощрить/наказать


PostPosted: Tue Jan 24, 2012 11:08 am (спустя 1 год 1 месяц 25 дней 13 часов 11 минут; написано за 16 секунд)
   Post subject:
Reply with quote

У меня всё работает как надо. Какая версия Windows и Active Perl?
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic All times are GMT + 3 Hours
Page 1 of 1    Email to a Friend.
You cannot post new topics in this forum. You cannot reply to topics in this forum. You cannot edit your posts in this forum. You cannot delete your posts in this forum. You cannot vote in polls in this forum. You cannot attach files in this forum. You cannot download files in this forum.
XML