Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - z3f

Страницы: [1]
1
Perl / Сортировка
« : 07 Апреля 2004, 17:53:25 »
Задача достаточно простая - я работу в колледже и решил написать небольшую программку для тестов... ессесно хотелось бы что бы она была что называется сервер-сайд. потому и решил что лучше всего ее сделать на перле что бы на си не возится с БД...

Есть тетсовое задание - Определить порядок действий - то етсь расставить по порядку действия. и вот делаю дружественный интерфейс. все оформляется с помощью рабиобуттонов и каждый раз отсылается на сервер. если выбираешь радиобуттон - закончить работу - вываливается новый вопрос. и так далее до последнего вопроса...

проблема была в следующем - не хотелось высвечивать радиобуттон еслиего уже выбрали. поэтому нужно было упорядочить по порядку вопросы. вот и столкнулся с проблемой.
она кстати решена - спасибо за подсказку по проверки правильности заполнения массива!

С уважением z3f.

2
Perl / Сортировка
« : 07 Апреля 2004, 14:48:49 »
NeoNox

Десйствительно - я неправильно забиваю массив. Проверил.
Проблема - действительно в моей голове.
вы правы.

Вопрос другой - корректно ли черз HTML-форму передается массив? Одно значение я могу передать, а вот целый массив передается через HTML форму в поле hidden или нет???

С уважением z3f.

3
Perl / Сортировка
« : 06 Апреля 2004, 17:36:55 »
Chs передо мной лежит учебник по перлу и если бы книжная истина пошла - я бы не обращался на форум... извини...


NeoNox
мой скрипт полностью приводить не буду - здоровый он и бестолковый ко всему прочему=)
#!/usr/bin/perl
use strict;
use CGI \':standard\';
my @s;
my @activ;
# после этого @activ забивается данными и он адназначна=) на пуст и не имеет пустых значений
@s = sort @activ;
print "Сортированный -- \\n";
print "$_ \\n" foreach @s;
print "Не сортированный -- \\n";
print "$_ \\n" foreach @activ;

По-моему я правльно воспользовался copy-paste=)
Или неправльно???
Потому что ответ - Сортированный -- 1 9 3 Не сортированный -- 1 9 3

Я просто не знаю - в чем проблема?
Посмотрите на мой скрипт еще раз пожалуйста!!!

ЗЫ - сервер FreeBSD 4.7 -- perl - вчера выкачал и поставил -- apache - месяц назад ставил... все - рабочее... может здесь проблема?

4
Perl / Удаление данных из файла
« : 06 Апреля 2004, 17:00:57 »
а cron\'ом не пробовали удалять?
пояснение - может все таки какой либо планировщик настроить стоит?
я так делаю... по-моему самое простое и эффективное решение...
по виндой есть программа nncron которая практически так же эффективна как и cron...

С уважением z3f.

5
Perl / Сортировка
« : 06 Апреля 2004, 16:51:25 »
Мдям=(((
я же так все и делал вообщето....
но получается то другое совсем!!!!
потому и спросил про принцип действия функции sort!!!!
Скрипт:
my @s;
my @m;
@m = @activ;
print foreach "@m \\n";
print foreach sort "@m \\n";
@s = sort @m;
print foreach "@s \\n";
print foreach "@m \\n";

Ответ скрипта - 1 8 4 5
1 8 4 5
То есть уперто не сортирует!!!!
В чем ошибка то??? Может я както не правильно что-то чему-то присваиваю???? может действие @m=@activ в корне неправильное???

Неужели никто в скрипте не сортировал???

С уважением z3f.

ЗЫ - perldoc -q sort - внимательно прочитал - эффекта не дало=)

6
Perl / Сортировка
« : 06 Апреля 2004, 16:00:09 »
Да забыл - пробовал так:
@arrnew= sort {1 cmp 100} @arrold;
Вообще бред получается!
@arrold = 2 8 3 4
отсортированный @arrnew = 4 2 8 3.

По какому принципу эта функция вообще сортирует???

С уважением z3f.

7
Perl / Сортировка
« : 06 Апреля 2004, 15:55:45 »
Обрадовался когда увидел что в Перле есть встроенная функция сортировки - sort.
Делаю:
@arrnew=sort @arrold;
@arrold - одномерный массив из чисел (пример - 2 8 4 1 6 9 3 9)
Требуется отсортировать по возрастанию.
Использовать что либо типа метода выбора или пузырьком не хочется (медленно).
Хочется встроенную функцию сортировки нормально работающую.
Как правильно использовать функцию sort???

С уважением z3f.

8
Perl / Вопрос чайника - не могу найти имя файла
« : 01 Апреля 2004, 14:36:20 »
Каюсь - слепой и тупой....
Заработало!
Спасибо громадное!!!!!!


С уважением z3f.

9
Perl / Вопрос чайника - не могу найти имя файла
« : 01 Апреля 2004, 14:22:08 »
Делаю:
if (-e, "${bilet}/${vopros}m.txt") {while () {print \'                                print "$num".\'">\';
                                print " $_ \\n";
                                print "
";
                                $num++;}}
                                else {while (){print \'                                print "$num".\'">\';
                                print " $_ \\n";
                                print "
";
                                $num++;}}

В страничке такой код выкидывает только радиобуттоны - вне зависимости от того есть файл с именем ${bilet}/${vopros}m.txt или его нет! То есть в любом случа выполняет только первое условие=( Проверено...
Почему так???

С уважением z3f.

10
Perl / Вопрос чайника - не могу найти имя файла
« : 01 Апреля 2004, 14:04:02 »
Дык в том то вся и проблема, что нет возможности указать имя файла напрямую=(
имя файла примерно выглядит так ${vopros)m.txt
а имя папки в которой он находится - это так $bilet
и целиком это выглядит так ${bilet}/${vopros)m.txt
Если бы была возможность указать имя напрямую - я это давно бы сделал=((((

11
Perl / Вопрос чайника - не могу найти имя файла
« : 01 Апреля 2004, 13:31:14 »
Сделал=(
=item I<-X> FILEHANDLE
=item I<-X> EXPR
=item I<-X>

    -e   File exists.

И как это использовать? Примерчик бы..... хоть какой либо....

12
Perl / Вопрос чайника - не могу найти имя файла
« : 01 Апреля 2004, 13:00:28 »
Проблем такая  - елси есть файл тогда делать одно действие если файла в директории нет - тогда другое.
Принципиально выглядит так:
if (file_exist){делать это} else {делать другое}
Не могу написать правльный код для file_exist!!!!!
Делаю так (через ж...):
@ar=<${bilet}/${vopros)m.txt>;
if ($#ar!=0){while () {print;}}
Код не работает!

Что делать????

С уважением z3f.

Страницы: [1]