Да, и всем спасибо за Saint-Perl супер-сейшн, супер организация, очень вкусная еду, в общем молодцы my @perl_wizdom = map $_ + 1, ( $Ingria, $Padna, $SaintPerl );#$_++not work;)
20.12.2011, 20:32, "Nikolay Mishin" <[email protected]>: > 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 > [email protected] | http://moscow.pm.org -- Nikolay Mishin -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
