Просмотр сообщений
46
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
47
Базы данных / книга по PostgreSQL.
« : 21 Декабря 2004, 13:12:18 »
Вот встал вопрос... нужна толковая книга по PostgreSQL на русском\\английском языке... аля "для профессионалов" кто пошлет на http://www.postgresql.org/docs/ будет конечно прав, но докой не всегда удобно пользоваться ... да и перед сном её не полистаешь... какие будут предложения?
48
Perl / scalar сложной структыры данных...
« : 16 Декабря 2004, 14:53:21 »
есть такая структура данных:
$files_tmp->
$files_tmp->
$files_tmp->[1]{\'files\'}[0]{\'file\'}="02.jpg";
$files_tmp->[1]{\'files\'}[1]{\'file\'}=125;
мне нужно найти скаляр (scalar) второго массива этой структуры, как это сделать?
c первым массивом всё понятно:
print scalar(@$files_tmp);
а вот как со вторым... не очень ясно...
$files_tmp->
- {\'files\'}[0]{\'file\'}="081.jpg";
$files_tmp->
- {\'files\'}[1]{\'file\'}=123;
$files_tmp->[1]{\'files\'}[0]{\'file\'}="02.jpg";
$files_tmp->[1]{\'files\'}[1]{\'file\'}=125;
мне нужно найти скаляр (scalar) второго массива этой структуры, как это сделать?
c первым массивом всё понятно:
print scalar(@$files_tmp);
а вот как со вторым... не очень ясно...
49
Юмор / прислали вот...
« : 06 Декабря 2004, 16:34:23 »
- Дайте мне IP какого-нибудь лоха, я его хакну!
- 127.0.0.1
- Спасибо, пацаны!
- 127.0.0.1
- Спасибо, пацаны!
50
Perl / Time... Самому лень метод писать... :)
« : 24 Ноября 2004, 11:35:31 »
Задача:
$time1="98:26"; # 98 - часов 26 - минут
$time2="25:58"; # 25 - часов 58 - минут
$time3=$time1-$time2;
Вообщем мне нужен модуль по расчету времени в вышеописанном формате... cpan.org я посёрфил... что-то там не нашел... может плохо искал... мож кто знает модуль для расчета времени?
P.S. Если нету сам напишу, и выложу мож пригодиться кому...
$time1="98:26"; # 98 - часов 26 - минут
$time2="25:58"; # 25 - часов 58 - минут
$time3=$time1-$time2;
Вообщем мне нужен модуль по расчету времени в вышеописанном формате... cpan.org я посёрфил... что-то там не нашел... может плохо искал... мож кто знает модуль для расчета времени?
P.S. Если нету сам напишу, и выложу мож пригодиться кому...
51
Базы данных / Вопрос с заявкой на учебник...
« : 19 Ноября 2004, 17:37:05 »
Вопросик такой:
БД- PostgreSQL.
Дано:
-------------------------------------------------------------------------------------
У меня есть две связанные таблицы:
CREATE TABLE train_main
(
train_main_id serial,
tr_num varchar(150),
date_arr date,
date_dep date,
CONSTRAINT train_main_pk PRIMARY KEY (train_main_id)
);
CREATE TABLE train_plase
(
train_plase_id serial,
train_main_id int4,
train_city_id int4,
num_ost int4,
CONSTRAINT train_plase_pk PRIMARY KEY (train_plase_id)
);
В первой содержиться номер поезда и даты начала движ. поезда и конца движ.
Во второй города следования поездов (train_city_id) и порядок их посещения
поездом (num_ost = 0 - начальный пункт, Max(num_ost) - конечный пункт).
-------------------------------------------------------------------------------------
Задача:
-------------------------------------------------------------------------------------
Вопрос в том как составить SQL запрос поиска поля train_main_id, зная город отправления и город прибытия, соблюдая порядок следования станций (num_ost).
-------------------------------------------------------------------------------------
БД- PostgreSQL.
Дано:
-------------------------------------------------------------------------------------
У меня есть две связанные таблицы:
CREATE TABLE train_main
(
train_main_id serial,
tr_num varchar(150),
date_arr date,
date_dep date,
CONSTRAINT train_main_pk PRIMARY KEY (train_main_id)
);
CREATE TABLE train_plase
(
train_plase_id serial,
train_main_id int4,
train_city_id int4,
num_ost int4,
CONSTRAINT train_plase_pk PRIMARY KEY (train_plase_id)
);
В первой содержиться номер поезда и даты начала движ. поезда и конца движ.
Во второй города следования поездов (train_city_id) и порядок их посещения
поездом (num_ost = 0 - начальный пункт, Max(num_ost) - конечный пункт).
-------------------------------------------------------------------------------------
Задача:
-------------------------------------------------------------------------------------
Вопрос в том как составить SQL запрос поиска поля train_main_id, зная город отправления и город прибытия, соблюдая порядок следования станций (num_ost).
-------------------------------------------------------------------------------------
52
Флейм / Я так решил ещё с утра... :))))
« : 09 Ноября 2004, 17:13:56 »
http://www.blues.ru/efes/
Я так решил ещё с утра,
Сегодня точно напьюсь...
Сегодня кончатся все деньги,
Седня пиво и блюз... :super: :super: :super:
Я так решил ещё с утра,
Сегодня точно напьюсь...
Сегодня кончатся все деньги,
Седня пиво и блюз... :super: :super: :super:
53
Nавигатор / [freebsd] FreeBSD 5.3-RC2
« : 03 Ноября 2004, 10:23:57 »
31 Октябрь, 2004: Группа подготовки релизов FreeBSD рада сообщить о доступности FreeBSD 5.3-RC2. Две серьезные ошибки были обнаружены во время тестирования RC1, и еще один релиз-кандидат выпущен для широкого тестирования. Если не будет обнаружено других критических ошибок, этот релиз-кандидат станет последним тестовым релизом перед 5.3-RELEASE. Полный анонс доступен в рассылке FreeBSD-CURRENT тут
Источник: http://freebsd.org
Источник: http://freebsd.org
54
Perl / Загрузка файла...
« : 14 Октября 2004, 11:10:50 »
Что-то я не очень понимаю... код такой:
------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use CGI qw(:param);
my $file=param(\'FL\');
print "Content-type: text/html\\n\\n";
print "File: $file
";
while (<$file>)
{
print;
}
print "
File is load good!";
------------------------------------------------------------
ниодин из загруженных файлов не отображаеться... в логах следующее:
file.cgi: readline() on unopened filehandle at file.cgi line 8.
Кто-нить поясните что за бред!?
------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use CGI qw(:param);
my $file=param(\'FL\');
print "Content-type: text/html\\n\\n";
print "File: $file
";
while (<$file>)
{
print;
}
print "
File is load good!";
------------------------------------------------------------
ниодин из загруженных файлов не отображаеться... в логах следующее:
file.cgi: readline() on unopened filehandle at file.cgi line 8.
Кто-нить поясните что за бред!?
56
JavaScript & JScript / window.open features
« : 05 Октября 2004, 18:32:56 »
Вопросик такой:
Как открыть полпап без строки заголовка (title) перерыл кучу документации... но видимо либо не там искал, либо не то искал...
--------------------------------
window.open("/cgi-bin/test.cgi",null,"height=500,width=600,status=no,toolbar=no,menubar=no,location=no, scrollbars=no, screenTop=no");
Как открыть полпап без строки заголовка (title) перерыл кучу документации... но видимо либо не там искал, либо не то искал...
--------------------------------
window.open("/cgi-bin/test.cgi",null,"height=500,width=600,status=no,toolbar=no,menubar=no,location=no, scrollbars=no, screenTop=no");
58
Perl / Сдвиг сортировки...
« : 08 Сентября 2004, 14:39:40 »
Задача следующая:
Имеем строку произвольной длинны с элементами вида "a:b" где а - индекс, b - индекс сортировки... :
"34:2,56:4,65:3,675:1,69:0"
Задача элементу ($id) изментить индекс сортировки на единицу в зависимоти от условия ($order=up или $order=down);
Моя спешная реализация:
---------------------------------------------------------------------------------#!/usr/bin/perl -w
use strict;
#исходные данные.
my $var="34:2,56:4,65:3,675:1,69:0";
my $id=56;
my $order="down";
#вызов функции order
$var=order($var, $id, $order);
print "$var\\n\\n";
#вывод и сортировка хеш массива
my @arr=split(",", $var);
my $Data;
for (my $NI=0; $NI<=$#arr; $NI++)
{
($Data->[$NI]{\'id\'}, $Data->[$NI]{\'order\'})=split(":", $arr[$NI]);
}
$Data=[ sort {$a->{order}<=>$b->{order}} @$Data ];
my $NI=0;
while ($Data->[$NI])
{
print "id=".$Data->[$NI]{\'id\'}."\\n";
$NI++
}
#конец вывода
sub order #функция сдвига сортировки
{
my ($var, $id, $order)=@_;
#определения максимального элемента
my @arr=split(",", $var);
my @arr_order;
my$i=0;
for my $el(@arr)
{
my ($id, $o)=split(":", $el);
$arr_order[$i]=$o;
$i++
}
@arr_order=sort {$b <=>$a} @arr_order;
my $max_elem=$arr_order[0];
###################################
#непосредственный сдвиг
my $var_1=$var;
$var=~/($id:)([0-9])/g;
my $ord=$2;
my $ord_old=$2;
if ($order eq "up")
{
if ($ord==0) #проверка на ноль
{
return $var;
exit;
}
else
{$ord--}
}
elsif ($order eq "down")
{
if ($ord==$max_elem) #проверка на максимальный элемент
{
return $var;
exit;
}
else
{$ord++}
}
$var_1=~/([0-9]+)(:$ord)/g;
my $id_2=$1;
$var=~s/($id:[0-9]+)/$id:$ord/g;
$var=~s/($id_2:[0-9]+)/$id_2:$ord_old/g;
return $var;
}
---------------------------------------------------------------------------------
есть идеи по уменьшению объема кода?
Имеем строку произвольной длинны с элементами вида "a:b" где а - индекс, b - индекс сортировки... :
"34:2,56:4,65:3,675:1,69:0"
Задача элементу ($id) изментить индекс сортировки на единицу в зависимоти от условия ($order=up или $order=down);
Моя спешная реализация:
---------------------------------------------------------------------------------#!/usr/bin/perl -w
use strict;
#исходные данные.
my $var="34:2,56:4,65:3,675:1,69:0";
my $id=56;
my $order="down";
#вызов функции order
$var=order($var, $id, $order);
print "$var\\n\\n";
#вывод и сортировка хеш массива
my @arr=split(",", $var);
my $Data;
for (my $NI=0; $NI<=$#arr; $NI++)
{
($Data->[$NI]{\'id\'}, $Data->[$NI]{\'order\'})=split(":", $arr[$NI]);
}
$Data=[ sort {$a->{order}<=>$b->{order}} @$Data ];
my $NI=0;
while ($Data->[$NI])
{
print "id=".$Data->[$NI]{\'id\'}."\\n";
$NI++
}
#конец вывода
sub order #функция сдвига сортировки
{
my ($var, $id, $order)=@_;
#определения максимального элемента
my @arr=split(",", $var);
my @arr_order;
my$i=0;
for my $el(@arr)
{
my ($id, $o)=split(":", $el);
$arr_order[$i]=$o;
$i++
}
@arr_order=sort {$b <=>$a} @arr_order;
my $max_elem=$arr_order[0];
###################################
#непосредственный сдвиг
my $var_1=$var;
$var=~/($id:)([0-9])/g;
my $ord=$2;
my $ord_old=$2;
if ($order eq "up")
{
if ($ord==0) #проверка на ноль
{
return $var;
exit;
}
else
{$ord--}
}
elsif ($order eq "down")
{
if ($ord==$max_elem) #проверка на максимальный элемент
{
return $var;
exit;
}
else
{$ord++}
}
$var_1=~/([0-9]+)(:$ord)/g;
my $id_2=$1;
$var=~s/($id:[0-9]+)/$id:$ord/g;
$var=~s/($id_2:[0-9]+)/$id_2:$ord_old/g;
return $var;
}
---------------------------------------------------------------------------------
есть идеи по уменьшению объема кода?
59
Perl / Температура процессора...
« : 31 Августа 2004, 15:42:20 »
Вопросик такой:
Как с помощью Perl выяснить любую переменную состояния компьютера? Температуру процессора или скорость вращения вентилятора кулера или общую температуру системы....?
Как с помощью Perl выяснить любую переменную состояния компьютера? Температуру процессора или скорость вращения вентилятора кулера или общую температуру системы....?
60
JavaScript & JScript / ReadOnly для textarea
« : 27 Августа 2004, 16:28:48 »
Что я окончательно запутался и запарился копать буржуйские доки... задача:
Есть текст ареа, и две радио кнопки (Yes/No) при нажатии на yes readonly отключаеться... No - включаеться...
моё НЕ РАБОЧЕЕ решение:
-------------------------------
-------------------------------
в чем грабли не понятно...
Есть текст ареа, и две радио кнопки (Yes/No) при нажатии на yes readonly отключаеться... No - включаеться...
моё НЕ РАБОЧЕЕ решение:
-------------------------------
-------------------------------
в чем грабли не понятно...