Нужна помощь! Perl скрипт для поиска выражения по шаблону?

[Smoki_rat]

Доброе время суток..
Мне нужна помощь .. для написания одного модуля..
Что касается задачи .. то она такая..
Имеется переменная $test="<DIV align="JUSTIFY" >Введите текст для страницы
[img]C:My Documents\05_JPG.JPG[/img]</DIV>";
Скрипт при обработки данной переменной должен найти ссылку на картинку и поместить ее в массив @arr (таких ссылок может быть много 'src="C:My Documents5_JPG.JPG"' )
После чего происходит измение данной ссялки src="C:My Documents5_JPG.JPG" на что-то подобное src="image/05_JPG.JPG"
и аналогичным образом происходит изменения если таких линков много ..
Надеюсь на то что вы поможите мне решить эту задачу..
Принципиально решить эту задачу по средствам Perl

[master]

Предлагаю тебе самому изучить регулярные выражения

Если собираешься работать серьезно - читай книгу "Регулярные выражения. Библиотека программиста" (авт. Фридл Дж. , изд. Питер, 2003).

[Smoki_rat]

Что касается меня то вот пока только наработка ..
А что касается серьезности .. то я думаю что это серьезно
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";

[Smoki_rat]

У кого есть какие замечания .. и предлажения

[MaksSoft™]

У меня есть вопрос. Только одна переменная $test содержит в себе 1-н большой кусок кода, где n раз встречается кусок типа «...src="C:My Documents5_JPG.JPG"...», n?N, да?

[Smoki_rat]

Да .. это так.. так вот .. из нее мы и выбираем ... все эти пути . ля дальнейшей еих замены..
В чем суть вопроса то?

[ser]

Вот прога с коментами

#!perl



use strict;

my $Link; * * * * # <-- some html here

my $NEW_PATH = '/images';

# <--- for test anly, remove below --->

$Link = '

<DIV align="JUSTIFY" >

 *Введите текст для страницы


 *[img]C:My Documents\01_JPG.JPG[/img]

 *[img]C:My Documents\02_JPG.JPG[/img]

 *[img]C:My Documents\03_JPG.JPG[/img]

 *[img]C:My Documents\04_JPG.JPG[/img]

 *[img]C:My Documents\05_JPG.JPG[/img]

 *[img]C:My Documents\06_JPG.JPG[/img]

 *[img]C:My Documents\07_JPG.JPG[/img]

</DIV>

';

# <--- for test anly, remove above --->



my @PicURLs = (); # <-- picture URLs here



# <-- put all IMG URLs into array -->

while($Link =~ m/<s*img.*srcs*="(.*)".*>/ig)

{

 *push(@PicURLs,$1);

}

# <--------------------------------->



# <-- change all OLD_PATH (i.e. c:My DDocuments) to NEW_PATH (i.e. /images) -->

$Link =~ s/(<s*img.*srcs*=").*[|/](.*)(".*>)/$1$NEW_PATH/$2$3/mig;

# <--------------------------------->





# <--- Print results --->

foreach my $picurl (@PicURLs)

{

 *print "$picurln";

}

print $Link,"n";

[Smoki_rat]

За прогу спасибо .. сейчас ббудем проверять ..