[Moscow.pm] regexp и YAML::Tiny

Nikolay Mishin mi на ya.ru
Вт Дек 20 08:32:30 PST 2011


Hi MoscowPM,
коллеги что делать
лежит у меня в yml
---
tags_4_index:
        - '<?xml version="1.0" encoding="UTF-8"?>'
        - Rock
        - Vocal

я его успешно читаю
use FindBin '$Bin';
my $yaml = YAML::Tiny::LoadFile( $Bin . qq{/} . $config_name );
my @tags = @{ $yaml->{tags_4_index} };
и потом 
хочу my $start_tag = shift @{$ref_tags};
1-й параметр использовать в регэкспе:
типа
while ( my $line = <$fh> ) {
if ( $line =~ /$start_tag/ims ) {
catch($line);
  }
}

так вот так не работает, работает, если
$start_tag='\<\?xml version="1.0" encoding="UTF-8"\?\>';
но, если я его таким кладу в yaml, то он мне возвращает (YAML::Tiny) 
### $start_tag: '\\<\\?xml version="1.0" encoding="UTF-8"\\?\\>'
зачем он его еще раз бекслешует?

--
Nikolay Mishin


Подробная информация о списке рассылки Moscow-pm