ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     10 Jul 2002  12:18:43
 To : Nikolay Pichtin
 Subject : Re: Чтение конфига в хеш
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Nikolay Pichtin.
 
 NP>                            Добрый вечер All !
 
 NP>  Есть конфигурациооный файл
 
 NP> #hash_1
 NP> dat_1 = Data num 1
 NP> dat_2 = 222
 NP> dat_3 = Dat_text
 
 NP> #hash_2
 NP> dat_11 = 555
 NP> dat_12 = 666
 NP> dat_13 = 777
 
 NP> .
 NP> .
 NP> .
 NP> .
 NP> Hеобходимо прочитать файл и зачения, следующие
 NP> после #hash_1 до пустой строки занести в хеш %hash_1, а данные,
 NP> следующие после hash_2 занести в %hash_2
 
 my $hash = '';
 while (<F>) {
   if (/^#(\w+)/) {
    $hash = $1;
    next;
   }
   if (/^(\S+)\s*=\s*(.*)/) {
    no strict 'refs';
    $$hash{$1} = $2;
   }
 }
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Чтение конфига в хеш   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