ScrapBook mustdie

[yan]

Ну что же, скрыптик отработал.
Картинок в ScrapBook'е оказалось около пяти сотен: я одно время клал туда всякую почти ерунду нестоющую.

Пришлось
(1) процедить архив на предмет ссылок и получить перечень записей с картинками из ScrapBook;
(2) найти соответствие моего архива и скрыпа этого (болезненно это, ребята);
(3) изготовить для всех известных картинок ноготки;
(4) исследовать галереи, что где лежит.

После этого процедура замены оказалась простая:
прочитать запись из списка (1);
для известных картинок, заменить ссылки на картинки и ноготки;
для галерей, объявленных известными, тоже заменить ссылки.

Команды замены всего в одной записи выглядят так:

$text =~ s/(pics.livejournal.com.yan.pic.)([0-9A-Za-z]+)["]/repp($1,$2)/ge;
$text =~ s/(pics.livejournal.com.yan.pic.)([0-9A-Za-z]+)\/([0-9A-Za-z]+)"/rep_thumb($1,$2,$3)/ge;
$text =~ s/(pics.livejournal.com.yan.gallery.)([0-9A-Za-z]+)["]/rep_gallery($1,$2)/ge;

ну, тут, конечно, ссылки на подпрограммы, но каждая тоже из одного условия.

Несколько вещей я не перекодировал, и они умрут вместе со скрапом. Скажем, галерея spam.

Мораль: старайтесь не публиковать картинок, если не готовы к ним вернуться.