ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     27 May 2002  12:20:12
 To : Denis Lebedev
 Subject : Re: Русские имена файлов.  ужна ваша помощь...
 -------------------------------------------------------------------------------- 
 

 Denis Lebedev <Denis.Lebedev@p14.f64.n5097.z2.fidonet.org> wrote:
 
 > 
 > Здравствуйте, All
 > 
 >    Путь_1 = "D:\files\После pаботы.doc"
 >    Путь_2 = "После pаботы.doc"
 > 
 >    Дpугими словами Путь_1 и Путь_2 это одна и таже пеpеменная $dir.
 
 sub _is_cyrillic($) {
 =pod
 
 Usage: _is_cyrillic( string );
 
 Returns FALSE if string contains cyrillic characters, otherwise - TRUE.
 
 =cut
   my $path = shift or return 0;
   use locale;
   (my $name) = $path =~ /\\?([^\\]+)$/;
   my $errcode = ($name =~ /а-я/i ? 0 : 1);
   no locale;
   return $errcode;
 }
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Русские имена файлов. Нужна ваша помощь...   Denis Lebedev   26 May 2002 04:03:25   Re: Русские имена файлов. ужна ваша помощь...   Vladimir Podgorny   27 May 2002 12:20:12   Re: Русские имена файлов. ужна ваша помощь...   Artem Chuprina   27 May 2002 15:31:16   Русские иHена файлов. ужна ваша поHощь...   Andrew Perevodchik   27 May 2002 22:46:21   Русские имена файлов. ужна ваша помощь...   Vitaly Ponomarjov   02 Jun 2002 12:25:38   Re: пСЯЯЙХЕ ХЛЕМЮ ТЮИКHБ. СФМЮ БЮЬЮ ОHЛHЫЭ...   Konstantin Tokar   04 Jun 2002 14:05:29