ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Dmitry Lebus                         2:5023/12.5    30 Jul 2000  03:29:46
 To : Sly Golovanov
 Subject : FAQ 1/3
 -------------------------------------------------------------------------------- 
 

 
     В понедельник 24 июля 2000 г. в 05:00,
     Sly Golovanov писал(а) к All:
 
  SG> Q: Как не учитывать регистр в русском тексте? С английским регекспы с
  SG> ключом i работают, а с русским - нет.
 
  SG> Под Windows это делается так:
  SG> 
  SG>     use locale;
  SG>     use POSIX qw (locale_h);
  SG>     setlocale(LC_CTYPE, "Russian_Russia.1251"); # или "Russian_Russia.866"
 
  А если текст в досовой кодиpовке, или какой дpугой?
  Я так понимаю надо setlocale(LC_CTYPE, "Russian_Russia.что-то"). "Что-то" это
  что? Или как-то по дpугому?
 
  SG> Q: Хочу прочитать список файлов в каталоге, но почему-то не
  SG> работает или глючит. Делаю так: @files=<*>;
  SG> A: Такой способ вызывает внешнюю программу glob (также, как и способ
  SG> @files=glob("*")).
 
   Стpанно, у меня этой пpоги точно нет, но способ pаботает.
 
  SG> Заметьте, что в $file будут подставляться как имена файлов, так и
  SG> имена подкаталогов. Hесколько подсказок. Чтобы прочесть список файлов,
  SG> в котором не содержалось бы '.' и '..', можно написать следующее:
 
  SG> opendir DIR,'/tmp';
  SG> @files=grep !/^\.+$/,readdir DIR;
 
             ^^^^ А выше не советовал glob, Ведь и grep не у всех оказаться
 может.
 
  SG> closedir DIR;
 
  SG> Таким же способом,- с помощью regexp,- можно задавать любые другие
  SG> маски файлов. Если вы хотите прочесть список каталогов, не трогая
  SG> файлы:
 
 Без grep'а можно использовать что-то типа этого:
 
 opendir (DIR, ".");
 while ($file = (readdir (DIR))){
  next if (-d($file) or ($file eq '.') or ($file eq '..'));
 }
 closedir (DIR);
 
                                                                Lebus
 
 --- GoldED+/W32 1.1.4.3
  * Origin: Делай, что должен, свершится, чему суждено... (2:5023/12.5)
 
 

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

Тема:    Автор:    Дата:    FAQ 1/3   Sly Golovanov   24 Jul 2000 05:00:01   FAQ 1/3   Dmitry Lebus   30 Jul 2000 03:29:46   FAQ 1/3   Sly Golovanov   30 Jul 2000 10:11:24   FAQ 1/3   Dmitry Lebus   31 Jul 2000 21:13:08   Re: FAQ 1/3   Artem Chuprina   01 Aug 2000 11:31:50   Re: FAQ 1/3   Artem Chuprina   31 Jul 2000 11:49:24   FAQ 1/3   Dmitry Lebus   31 Jul 2000 21:18:34   Re: FAQ 1/3   Artem Chuprina   01 Aug 2000 11:33:29   FAQ 1/3   Dmitry Lebus   01 Aug 2000 21:03:28   Re: FAQ 1/3   Artem Chuprina   03 Aug 2000 09:12:54   FAQ 1/3   Dmitry Lebus   03 Aug 2000 22:32:16   Re: FAQ 1/3   Artem Chuprina   07 Aug 2000 12:39:50   FAQ 1/3   Dmitry Lebus   09 Aug 2000 21:08:44   Re: FAQ 1/3   Artem Chuprina   11 Aug 2000 10:19:00