ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      10 Jul 2002  22:19:58
 To : Artem Chuprina
 Subject : Re: Чтение конфига в хеш
 -------------------------------------------------------------------------------- 
 

 
  NP>>  Есть конфигурациооный файл
 
  NP>> #hash_1
  NP>> dat_1 = Data num 1
 
 [Skip]
 
  NP>> Hеобходимо прочитать файл и зачения, следующие
  NP>> после #hash_1 до пустой строки занести в хеш %hash_1, а данные,
  NP>> следующие после hash_2 занести в %hash_2
 
  AC> my $hash = '';
  AC> while (<F>) {
  AC>     if (/^#(\w+)/) {
  AC>         $hash = $1;
  AC>         next;
  AC>     }
  AC>     if (/^(\S+)\s*=\s*(.*)/) {
 
 Спасибо! Только вместо ^(\S+) надо ^(.+)
 
  AC>         no strict 'refs';
  AC>         $$hash{$1} = $2;
  AC>     }
  AC> }
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

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

Тема:    Автор:    Дата:    Чтение конфига в хеш   Nikolay Pichtin   09 Jul 2002 22:53:06   Re: Чтение конфига в хеш   Artem Chuprina   10 Jul 2002 12:18:43   Re: Чтение конфига в хеш   Nikolay Pichtin   10 Jul 2002 22:19:58   Re: Чтение конфига в хеш   Artem Chuprina   11 Jul 2002 13:06:46   Чтение конфига в хеш   Alan Long   10 Jul 2002 10:19:09