VPF::Поиск и замена ссылок - Форум программистов

Satell

Дата 4.7.2007, 19:09 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 28.6.2007

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

$pagetext=текст html документа;
@links=массив ссылок;
@images=массив ссылок на картинки;

нужно заменить все теги <a href=какой-то адрес> в документе $pagetext на теги с ссылками из массива @links в случайном порядке
и все теги <img src=какая-то картинка> на картинки из массива @images в случайном порядке, как это сделать?

вот например код который меняет, но во всём документе сразу и только на одну ссылку, а надо чтобы было много разных, можно ли сделать что-то типа find next, чтобы при каждом запуске оператора s/ / он находил следующую ссылку

Код


$randout=$links[rand @links]; 
$randimg=$images[rand @images];
$pagetext =~ s/href=\".*\"/href=\"$randout\"/gi;    
$pagetext =~ s/<img.*src=.*>/<img src=\"$randimg\">/gi;

nitr

Дата 4.7.2007, 23:15 (ссылка)

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

Загрузка ...

Эксперт

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

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

Вам не в форум perl - а в работу/"Цетнтр помощи" или типа того...

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

I love ArchLinux

amg

Дата 5.7.2007, 07:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Немного замысловато, но должно работать

Код


$pagetext =~ s/href=".*?"/'href="'.$links[rand @links].'"'/egi;    
$pagetext =~ s/<img.*?src=.*?>/'<img src="'.$images[rand @images].'"'>/egi;

Satell, обрати внимание на поисковую часть регулярных выражений. Я немного подправил, но до идеала далеко, правильно парсить html не так просто, лучше пользоваться готовыми решениями.

Это сообщение отредактировал(а) amg - 5.7.2007, 07:17

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