Perl

просто перл вопросы

---------- Добавлено 05.06.2016 в 00:22 ----------

Регексп из конфига для парсинга:

%menuReg=(



  'block'	=> ['<ul class="header-catalog__scroll">(.+)?</div><!-- end .header-catalog -->'],

  'cat'		=> ['\n    <li  class="header-catalog__item">(.+?)\n    </li>'],

  'group'	=> ['<li class="column__item">(.+?)\n                            </ul>'],

  'group_name'	=> ['<a class="catalog-container__title[^>]+>(.+?)</a>'],

  'cat1'	=> ['<li  class="catalog-container__item[^>]+>(.+?)</li>']

);



sub MakeRex{

  my $hash=shift;

  foreach my $key (keys %{$hash}){

	if (ref $hash->{$key} eq 'ARRAY'){

		@{$hash->{$key}}= map {qr!$_!is if $_} @{$hash->{$key}};

	}elsif(ref $hash->{$key} eq 'HASH'){

		$hash->{$key}=MakeRex($hash->{$key});

	}

  }

  return $hash;

}