Perl парсер
Код:
$templateword=array('xml', 'onload', 'hidden', 'onload', 'title', 'charset', 'description', 'keywords', 'script', 'content', 'home', 'sitemenu', 'downmenu', 'user_menu');
foreach ($templateword as $v) {
if (isset($$v)) {
$blank = str_replace("%".$v."%", $$v, $blank);
}
}
foreach ($templateword as $v) {
if (isset($$v)) {
$blank = str_replace("%".$v."%", $$v, $blank);
}
}
Поясню - мы ищем в строке $blank шаблоны типа %content%, и заменяем их соответствующими переменными.
Нужно сделать такую же штуку на Perl... Вопрос - есть ли в Perl`e конструкции типа $$v? Если нет, то как это организовать?
Цитата: SapienS
Есть такой код на PHP
Поясню - мы ищем в строке $blank шаблоны типа %content%, и заменяем их соответствующими переменными.
Нужно сделать такую же штуку на Perl... Вопрос - есть ли в Perl`e конструкции типа $$v? Если нет, то как это организовать?
Код:
$templateword=array('xml', 'onload', 'hidden', 'onload', 'title', 'charset', 'description', 'keywords', 'script', 'content', 'home', 'sitemenu', 'downmenu', 'user_menu');
foreach ($templateword as $v) {
if (isset($$v)) {
$blank = str_replace("%".$v."%", $$v, $blank);
}
}
foreach ($templateword as $v) {
if (isset($$v)) {
$blank = str_replace("%".$v."%", $$v, $blank);
}
}
Поясню - мы ищем в строке $blank шаблоны типа %content%, и заменяем их соответствующими переменными.
Нужно сделать такую же штуку на Perl... Вопрос - есть ли в Perl`e конструкции типа $$v? Если нет, то как это организовать?
хехе, знаете, нет никакого желания заглядывать в man php, что бы узнать что в этом интерпетаторе означает. Если зададите вопрос немного по-другому, то наверняка получите ответ ;)=
1) Есть некая строка, в которой есть слова типа {что_то}.
2) Есть массив, в котором содержатся название некоторых переменных.
3) Мне нужно в строке заменить все вхождения {переменная} на $переменная, причем переменные использовать только из массива.
В итоге должно получиться нечто вроде парсера.