Релиб / Веб-программирование / Perl / есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ? / Latest Posts

RE: есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ?

offender — Mon, 07 Feb 2005 11:45:00 GMT

спасибо за решение.
btw, если интересно, еще альтернатива, с использованием substr в левой части:substr( $chg_where, index ($chg_where, $chg_what), length($chg_what) ) = "__SUBGRP__";

RE: есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ?

Padmiv — Fri, 04 Feb 2005 18:39:00 GMT

т.е.
[code]
$here = quotemeta($here);
s/$here/$not_there/
[/code]

RE: есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ?

Padmiv — Fri, 04 Feb 2005 18:38:00 GMT

попробуй [code]s/quotemeta($here)/$not_there/[/code]

RE: есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ?

offender — Thu, 03 Feb 2005 12:43:00 GMT

но код делает не то, что нужно.
(действие кода понятно. )вот "измененный под задачу" код - обратите внимание, что ключ хеша, а не значение, содержит символы, трактуемые в s/// как специальные символы паттерна.Виноват, сразу не акцентировал проблему - необходимо _игнорировать_ специальные значения символов в паттерне s/$here/$not_there/ ########################################
$str_where = "select t.*, rownum from dual t where exists (select * from dual where '1'<>'0')";
my %HASH;$HASH{"(select * from dual where '1'<>'0')"} = "_Must_Be__";foreach my $key(keys %HASH) {
$str_where =~ s/$key/$HASH{$key}/;
}
print $str_where;
########################################
# - желаемый рез-т :
# select t.*, rownum from dual t where exists _Must_Be__
#спасибо за ответ.

RE: есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ?

PoizOn — Thu, 03 Feb 2005 09:28:00 GMT

Нет ничего невозможного. В Perl для этого идеально подходят хэши.
На вскидку - можно сделать так:$str_where = "select t.*, rownum from dual t where exists _REPLACE_THIS_";
my %HASH;$HASH{'_REPLACE_THIS_'}= "(select * from dual where '1'<>'0')";foreach my $key(keys %HASH) { $str_where= ~s/$key/$HASH{$key}/;}Надеюсь эействие кода понятно.

RE: есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ?

offender — Wed, 02 Feb 2005 20:44:00 GMT

уточню:$str_where =~ s/$str_what/__STR_WITH__/;не подойдет, т.к. в ходе поиска специальные значения символов
()/\{}*.? etc. etc.
мешают.

есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ?

offender — Wed, 02 Feb 2005 19:29:00 GMT

есть переменные
$str_where = "select t.*, rownum from dual t where exists (select * from dual where '1'<>'0') ";$str_what = "(select * from dual where '1'<>'0')";
$str_with = "__REPLACED_SUBQUERY__";есть ли возможность получить в результате строку
"select t.*, rownum from dual t where exists __REPLACED_SUBQUERY__" заранее спасибо за помощь.