ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Smolin                        2:5020/949     14 Sep 2001  04:07:46
 To : Alexander Lozovoi
 Subject : Выделить запись
 -------------------------------------------------------------------------------- 
 

  Once, 14 Sep 2001 00:06, Alexander Lozovoi wrote to All:
 
  AL> Hyжно выделить из конфигypационного файла записи типа:
  AL> И создать хэш хэшей(%server_name) :
  AL> $server_name{$record->{ServerName}}=$record;
 
 Как-нибудь так (примерно и неоптимально):
 
 open( IN, [...] );
 undef $/;
 
 $_ = <IN>;
 
 s/^#.*$//mg;
 
 for ( m|<VirtualHost [^>]*>(.*?)</VirtualHost>|sg ) {
     $server_name{$h{'ServerName'}} = { %h } if ( %h = /^\s+(\S+)\s+(.*)$/mg );
 }
  Take care.
 
 --- skanking to the rhythm of the music by my side
  * Origin: The vision that was planted in my brain still remains (2:5020/949)
 
 

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

Тема:    Автор:    Дата:    Выделить запись   Alexander Lozovoi   14 Sep 2001 00:06:20   Выделить запись   Dmitry Smolin   14 Sep 2001 04:07:46   Re: Выделить запись   Pavel Ammosov   15 Sep 2001 13:34:17