ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/5609.69 28 Jun 2001  20:48:45
 To : Denis Roshchin
 Subject : Re: Short name
 -------------------------------------------------------------------------------- 
 

 Юґullo Denis!
 
  >> Как в виндах получить из длинного имени файла,короткое
  DR> удалить из фаилнейма все, что следует после первых восьми символов :)).
 
  DR> а если серьезно - можно влоб (алгоритм):
  DR> getfilename(); #returns $filename1
  DR> $filename1 = obrybit'($filename2,8);
  DR> system("rename $filename1 $filename2");
 
 Можно отпарсить вывод `dir /x длинное_имя` ;)
 
 Или узнать как это делать в API и попробовать поизмываться над Win32API::File
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/5609.69 ДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/5609.69)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Short name   Sergey Belov   28 Jun 2001 16:45:56   Re: Short name   Denis Roshchin   29 Jun 2001 02:12:58   Re: Short name   Alexander Babanov   28 Jun 2001 20:48:45