Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

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


Феликс   (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 ©, я тебя раньше и так уважал, а теперь совсем уважать буду. Спасибо тебе! Да, раньше я скрывал свои чувства, но сейчас прямо без излишней стиснительности скажу, что рулезный сайт вы сделали. Еще раз Спасибо!




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
1-57343           VS                    2002-03-01 07:01  2002.03.18  
Как закрыть активное приложение зная его exe-файл


1-57357           Дмитрий               2002-03-04 17:08  2002.03.18  
FlexGrid&Pointers


14-57501          HDD                   2002-02-02 17:25  2002.03.18  
Помогите пожалуйста!


1-57412           Konvoy                2002-03-02 10:33  2002.03.18  
BDE и Терминил-клиент


3-57335           pupkin                2002-02-19 18:02  2002.03.18  
Как узнать логин текущего пользователя в SQL