Пара простых вопросов по Перлу.

← →
Феликс (2002-02-03 00:50) [0]

Подскажите если не сложно как сделать:
1) В этом форуме при создание темы есть Radio buttons. Выбрав из них определенную можно добавить определенную картинку в форум. Как такое сделать, а?
2) Один из моих скриптов добавляет текст. Как сделать так, чтобы текст добавлся, но перед вот такой фишкой <--------------------->. Т.е выглядеть это должно так:
11111
<-------------------------->
11111
2222
<--------------------------->
1111
222
333
<--------------------------->
И.Т.Д
Заранее благодарен

← →
Merlin (2002-02-04 03:03) [1]

1) Значения Radio buttons = цифилькам, я их подставляю в результирующий файл в таком виде:
$imagen = ....; # получить значение переданное из формы <img src="/forum/icon$imagen.gif">
А в папке /forum/ просто валяются icon.gif, icon1.gif, icon2.gif и т.д.
2) не понял, почему в третьем варианте уменьшилось число единиц и двоек, полагаю, что это опечатка.
$fishka="<--------------------------->"; # перед чем вставляем текст $txt = ...; # здесь вставляемый текст # Читаем файл open(F, $FileName) || die "Can`t open file $FileName : $!"; my $lines = join("", <F>); close(F); $lines=~s/$fishka/$txt$fishka/; # Записываем рез-тат open(F, ">$FileName") || die "Can`t create a file $FileName : $!"; print F $lines; close(F);

← →
Феликс (2002-02-04 14:47) [2]

Ну, Merlin ©, я тебя раньше и так уважал, а теперь совсем уважать буду. Спасибо тебе! Да, раньше я скрывал свои чувства, но сейчас прямо без излишней стиснительности скажу, что рулезный сайт вы сделали. Еще раз Спасибо!

Пара простых вопросов по Перлу. Найти похожие ветки