Что касается меня то вот пока только наработка ..
А что касается серьезности .. то я думаю что это серьезно
my $t=<<'HTML';
<DIV align="JUSTIFY" >Не редактированая страница
[img]C:My Documents\05_JPG.JPG[/img]
Да вот решил побаловатся .. гыгыгыгыг
h[img]C:My Documents\05_JPG.JPG[/img]
[img]C:My Documents\05_JPG.JPG[/img]
</DIV>
HTML
$i=1; # Установка нумератора картинок
@pic=(); # Обнуление массива для записи картинок
&req($t); # Кто его знает но надо гыгыгыгы
sub req # Выдирание тегов с картинками (для дальнейшей обработки и закачки на сервер)
{
if($t=~m%(<IMG (.*?)>)%igs) # Условие обнаружения тега с картинками
{
push(@pic,$1); # Пополнение массива где лежат теги картинок
$pic=$1;
$t=~s/(<IMG (.*?)>)/<imagi path from @pic $i>/; # Замена в тексте новым тегом ..
$i++;
&req($t);
}
return $t;
}
print "<hr>$t<hr>";
print "Массив картинок
@pic";
