ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : John Lepikhin                        2:5070/156     27 May 2002  03:08:51
 To : Denis Lebedev
 Subject : Re: Русские имена файлов. Hужна ваша помощь...
 -------------------------------------------------------------------------------- 
 

 Приветствую, Denis.
 
 !> On 26 May 02 04:03:25 +0900, Denis -> All:
 
  DL> Путь_1 = "D:\files\После pаботы.doc"
  DL> Путь_2 = "После pаботы.doc"
  DL> Hеобходимо написать на Perl пpоцедуpу, котоpая умела выдиpать из
  DL> Пути_1 и Пути_2 название файла, т.е. должно в обоих ваpиантах
  DL> получиться "После pаботы.doc".
 
 $dir = 'D:\\files\\После работы.doc';
 
 print 'В названии '.(((reverse split (/\\/, $dir))[0] =~ /[а-яА-Я]/)
                      ? 'есть русские буквы'
                      : 'нет русских букв').".\n";
 
         Будет работать только для досовых способов задания пути
 (каталоги разделяются обратными слэшами). Чтобы работал и юниксовый,
 надо 'split (/\\/, $dir)' заменить на 'split (/[\\\/]/, $dir)'.
 -- 
 ... [лесные компьютерщики] {allnet} {ptoss}
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
  * Origin: A poorly-installed InterNetNews site (2:5070/156.0)
 
 

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