VPF::Аналог str_replace - Форум программистов

TwiSteR

Дата 20.3.2006, 17:37 (ссылка)

(нет голосов)

Загрузка ...

Кибер красавчег

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 15.6.2005
Где: World->Russia

Репутация: нет
Всего: 2

Приветствую уважаемые,
помоите с аналогом из php

Цитата

str_replace
(PHP 3>= 3.0.6, PHP 4 , PHP 5)

str_replace -- Заменяет строку поиска на строку замены
Описание
mixed str_replace ( mixed search, mixed replace, mixed subject [, int &count])

Эта функция возвращает строку или массив subject, в котором все вхождения search заменены на replace. Если не нужны сложные правила поиска/замены, использование этой функции предпочтительнее ereg_replace() или preg_replace().

С версии PHP 4.0.5, любой аргумент str_replace() может быть массивом.

--------------------

Darhazer

Дата 20.3.2006, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 429
Регистрация: 28.9.2005
Где: HellCity (Sofia, Bulgaria)

Репутация: нет
Всего: 29

php:

Код


$string = str_replace("apples", "orange", $string);

perl:

Код


$string =~ s/apples/oranges/gi;

/gi -> g заменить всех apples на oranges, i = case insensitive search
Вообще, если понимаеш английский, можеш почитать:
http://www.htmlite.com/perl025c.php

--------------------

I'm a wheel, I'm a wheel, I can roll, I can feel
But you can't stop me turning
'Cause I'm the sun, I'm the sun, I can move, I can run
But you'll never stom me burning

nitr

Дата 20.3.2006, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

perldoc perlre читай это!
и ещё можешь добавить модификаторы /sm smile

для поиска в тексте с абзацами и т.п.

--------------------

I love ArchLinux

TwiSteR

Дата 20.3.2006, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Кибер красавчег

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 15.6.2005
Где: World->Russia

Репутация: нет
Всего: 2

Спасибо за отклик,
конкретно надо вот что
Пробую так

Код


#!/usr/bin/perl
use strict;
my @drop_char_match    = ('24.gif', '.gif', '&quot;','^', '$', '&', '<', '>', '`', '\' ', '"', '|', ',', '@', '_', '?', '%', '-', '~', '+', '.', '[', ']', '{', '}', ':', '\\', '/', '=', '#', '\'', ';', '!', '*');
my @drop_char_replace  = ('',       '',     ' ',     ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ',   ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ' , ' ', ' ', ' ', ' ',  ' ', ' ', ' ');      
my $word ='ddd24.gif';

for(my $i=0;$i < scalar(@drop_char_match)-1;$i++)
{
    $word =~ s/$drop_char_match[$i]/$drop_char_replace[$i]/g;
    print $word."\n";
}

Код


Выдаёт
ddd
ddd
ddd
 ddd
 ddd
 ddd
 ddd
 ddd
 ddd
 ddd
 ddd
   d d d
   d d d
   d d d
   d d d
Quantifier follows nothing in regex; marked by <-- HERE in m/? <-- HERE / at ./test.pl line 11.

--------------------

nitr

Дата 20.3.2006, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Что тебе надо на выходе (результат какой)? Иправляй ошибку так:
$word =~ s/\Q$drop_char_match[$i]/$drop_char_replace[$i]/g;

--------------------

I love ArchLinux

TwiSteR

Дата 23.3.2006, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Кибер красавчег

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 15.6.2005
Где: World->Russia

Репутация: нет
Всего: 2

nitr,
Спасибо, то что надо !

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »