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

Search found 1 match
Author Message
  Topic: Activeperl урезает имена файлов?
mouseman

Replies: 1
Views: 8340

PostForum: Разное :: Perl   Posted: Sun Nov 28, 2010 9:57 pm   Subject: Activeperl урезает имена файлов?
В перле - новичек, так что не пинайте...
Установил денвер и активперл. НаписАл простенький скрипт:

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. Одинаково
 
Page 1 of 1 All times are GMT + 3 Hours
XML