ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     14 Sep 2001  13:35:22
 To : Dmitry Smolin
 Subject : Re: Выделить запись
 -------------------------------------------------------------------------------- 
 

 Dmitry Smolin <Dmitry.Smolin@f949.n5020.z2.fidonet.org> wrote:
 
 Скорее немного быстрее будет так (код лабаю прямо сюда без проверки):
 
 my $mask=join('|',qw(
   ServerRoot
   ServerAlias
   ErrorLog
   CustomLog
   ...
 ));
 my $host;
 my %conf;
 
 while (<IN>) {
   undef($host) if m|</virtualhost>|i;
   $host=$1 if /^<virtualhost\s+(\S+)\s*>/i;
   next unless defined($host);
   chomp;
   /^\s*($mask)\s+(.*)\s*$/ || next;
   $conf{$host}{$1}=$2;
 }
 
 -- 
 VP992-RIPE [ Жизнь - это затяжной прыжок из ... в могилу. ]
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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