Forum Webscript.Ru

Программирование => Perl => Тема начата: Отец Никон от 20 Июня 2004, 22:53:22

Название: Модификация тэгов
Отправлено: Отец Никон от 20 Июня 2004, 22:53:22

Как текст заменить на ?

Название: Модификация тэгов
Отправлено: Green Kakadu от 21 Июня 2004, 01:21:47

$str=~ s/[\\w-]*?\\.jpg">/$ENV{\'QUERY_STRING\'}\\/shema\\.jpg">/;

Название: Модификация тэгов
Отправлено: Отец Никон от 22 Июня 2004, 14:47:42

Благодраю, но этот способ работает только в том случае, когда имеется лишь один IMG с  SRC=schema. А что делать, если у меня несколько SRC с разными именами файлов?

Название: Модификация тэгов
Отправлено: Отец Никон от 22 Июня 2004, 14:49:00

Я немного ошибся в формулировке задачи. Вот что надо: заменить на

Название: Модификация тэгов
Отправлено: Green Kakadu от 22 Июня 2004, 14:54:46

Цитировать

тот способ работает только в том случае, когда имеется лишь один IMG с SRC=schema

используем ключ g:
$str=~ s/([\\w-]*?)\\.jpg">/$ENV{\'QUERY_STRING\'}\\/$1\\.jpg">/g;