[Perl] Новичкам: задаем вопросы

Помогите пожалуйста.

Здравствуйте. Передо мной стоит задача - произвести замену в тексте следующим образом:
Есть текст с хтмл кодом. Нужно взять текст между всеми тегами <b> и </b>, проделать с ним ряд операций, а затем результаты вставить обратно соответственно. К примеру, было так:
<b>A</b>...big code...<b>B</b>
а нужно, чтобы получилось так:
<b>A1</b>...big code...<b>B1</b>
Подскажите, как цикл организовать? То есть чтобы скрипт обработал значение между первыми <b> и </b>, заменил на результат преобразований и приступил к обработке следующего участка с <b> и </b>.
Сделать одну такую замену у меня прекрасно получается, а вот сделать другую автоматом - нет! Не догоняю, как организоать цикл, чтбы скрипт обработал один и тот же участок 1 раз . Помогите, пожалуйста

 

Code:

#!/usr/bin/perl -w
$text = '<b>A</b>...big code...<b>B</b>...big code...<b>C</b>...big code...<b>D</b>...big code...<b>E</b>...big code...<b>F</b>';
$newtext = $text;

while($text =~ /<b>(.*?)<\/b>/g) {
	$str = $1;
	#всякие действия
	$str .= '1';
	################
	$newtext =~ s/$1/$str/;
}

print $newtext;

 

Мужики! Всем привет!

Я скачал Active Perl и не могу разобраться, пытался проинсталить свой leecher.pl
используя команду install.

Делаю первый раз, может быть есть что-то лучше чем Active Perl? Посоветуйте пожалуйста.

Заранее благодарен!

 

Зачем скрипт инсталлировать? Просто запусти его типа
perl leecher.pl

 

http://www.cgi-scripts.info/perl/perlw32.shtml
так все делал?

 

Запустил скрипт! Большое спасибо - буду теперь кывыряться

 

Всем привет! Как поделить масив на две части? (равные, почти равные) Как на три?
Пробую вот так:
#@all - массив
$np=$#all/2; @one=$all[0..$np];@two=$all[$np..$#all];

 

Как вариант вот так:

Code:

@one = @two = ();
@array = (1..10);
for(0..$#array) {
 $_ < $#array/2 ? (push(@one,$array[$_])) : (push(@two,$array[$_]));
}

 

Ну и зачем каждый раз в цикле делать эту проверку?

 

Ну и зачем писать этот комментарий? Лучше бы написал свое более качественное решение.

 

Code:

for(1..$#a/2+1) { push (@b, shift @a); }

 

>> Ну и зачем писать этот комментарий? Лучше бы написал свое более качественное решение.

Это не комментарий, это вопрос. )
Мое "решение" для $p01nt'a выглядело бы так: "А не почитать ли тебе учебник по языку на досуге?"

 

ВОт вопрос может не по теме, но как запустить на нормальном платном хостинге написанный скрипт, чтобы он работал постоянно? То есть, если я его на компе запущу - то он будет работать, а как это сделать на хостинге?

 

http://coding.derkeiler.com/Archive/Perl/perl.beginners/2006-12/msg00755.html

 

screen или cron.

 

Не обязательно....иногда достаточно просто запустить perl script.pl params &

 

Просто запустить не получится - перезагружается сервер и опять мне вручную пускать.
cron - вариант понравился. У меня стоит панель ISP Manager, но я думаю - это не имеет значегия... Что написать в поле "Команда"? То есть предположим скрипт лежит в www/script.pl. Как прописать команду в cron, чтобы он запустился?

 

Есть доступ к /etc/rcN.d ?

 

rcN.d в папке etc нету

 

N - номер ранлевела...учи матчасть...grep /etc/inittab | grep default