[Moscow.pm] regexp и YAML::Tiny

[Nikolay Mishin]

Да, и всем спасибо за Saint-Perl
супер-сейшн, 
супер организация, очень вкусная еду,
в общем молодцы 
my @perl_wizdom = map $_ + 1, ( $Ingria, $Padna, $SaintPerl );#$_++not work;)

20.12.2011, 20:32, "Nikolay Mishin" <mi на ya.ru>:
> 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 mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Nikolay Mishin