Просмотр сообщений
1
Базы данных / Работа с типом INTEGER
« : 06 Августа 2007, 15:54:53 »
ТАк что, нету в firebirde zerofill\'a???
или никто не пользует эту СУБД.... обидно...
или никто не пользует эту СУБД.... обидно...
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
2
Базы данных / Работа с типом INTEGER
« : 31 Июля 2007, 09:01:37 »
Извиняюсь сразу.
Доки читал и форум тоже читал.
Работает Delphi и Firebird
Задача:
В таблице
id integer,
value integer
нужно что бы в поле value хранилось все в формате 000000
т.е. вводится из дельфи 5
записывается 000005
или проще это сделать средствами Delphi?
Заранее спасибо
Доки читал и форум тоже читал.
Работает Delphi и Firebird
Задача:
В таблице
id integer,
value integer
нужно что бы в поле value хранилось все в формате 000000
т.е. вводится из дельфи 5
записывается 000005
или проще это сделать средствами Delphi?
Заранее спасибо
4
Perl / аналог tail
« : 10 Января 2007, 07:28:59 »
2commander
а можно пример?
ну если не трудно конечно...
а можно пример?
ну если не трудно конечно...
5
Perl / аналог tail
« : 09 Января 2007, 17:04:44 »
Доброго времени суток!
вот имеется лог файл в который сыпятся логи.
хочу сделать обработчик этих логов в реальном времени.
то есть запускаешь скрипт, он смотрит изменения в лог файле (лучше типа tail)
обрабатывает новые записи и выводит результат обработки, ожидает новых логов, обрабатывает....
кто нибудь подобное делал?
а теперь собственно вопрос...
как сделать так, чтобы скрипт смотрел за изменениями в файле в реальном времени, как tail?
ЗЫ файл не маленький (уже больше 100 метров)
и за один раз в него может записаться больше одной строки (15-20)
ЗЗЫ спасибо
вот имеется лог файл в который сыпятся логи.
хочу сделать обработчик этих логов в реальном времени.
то есть запускаешь скрипт, он смотрит изменения в лог файле (лучше типа tail)
обрабатывает новые записи и выводит результат обработки, ожидает новых логов, обрабатывает....
кто нибудь подобное делал?
а теперь собственно вопрос...
как сделать так, чтобы скрипт смотрел за изменениями в файле в реальном времени, как tail?
ЗЫ файл не маленький (уже больше 100 метров)
и за один раз в него может записаться больше одной строки (15-20)
ЗЗЫ спасибо
7
Perl / Вопрос по условному оператору "?:"
« : 18 Сентября 2006, 09:16:20 »
Вот так понятно, спасибо
8
Perl / Вопрос по формату даты
« : 18 Сентября 2006, 09:15:14 »
Я формирую дату из переменных $year,$month,$day,$hour,$min,$sec следующим образом:
$result_datee=join " ",
(join ".",sprintf("2%03d", $year), sprintf("%02d",$month) , sprintf("%02d",$day),
(join ":", sprintf("%02d",$hour), sprintf("%02d",$min), sprintf("%02d",$sec));
Можно ли проще? Поделитесь опытом....
$result_datee=join " ",
(join ".",sprintf("2%03d", $year), sprintf("%02d",$month) , sprintf("%02d",$day),
(join ":", sprintf("%02d",$hour), sprintf("%02d",$min), sprintf("%02d",$sec));
Можно ли проще? Поделитесь опытом....
9
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 15:00:49 »
@ARGV[0] eq "-w" ? $wait=@ARGV[1] :{ $wait=3};
а вот так нормально работает..... ПОЧЕМУ?
а вот так нормально работает..... ПОЧЕМУ?
10
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 14:27:09 »
#! /usr/bin/perl -w
print "$#ARGV @ARGV\\n";
@ARGV[0] eq "-w" ? $wait=@ARGV[1] : $wait=3;
print "Perem=$wait\\n\\n";
./argv.pl -w 11
Scalar value @ARGV[0] better written as $ARGV[0] at ./argv.pl line 5.
Scalar value @ARGV[1] better written as $ARGV[1] at ./argv.pl line 5.
1 -w 11
Perem=3
Это оно? больше не выдает ничего
print "$#ARGV @ARGV\\n";
@ARGV[0] eq "-w" ? $wait=@ARGV[1] : $wait=3;
print "Perem=$wait\\n\\n";
./argv.pl -w 11
Scalar value @ARGV[0] better written as $ARGV[0] at ./argv.pl line 5.
Scalar value @ARGV[1] better written as $ARGV[1] at ./argv.pl line 5.
1 -w 11
Perem=3
Это оно? больше не выдает ничего
11
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 14:16:51 »
Нет, чего то ли я не догоняю
такая конструкция работает(твоя) но это с примерение саба
($wait eq \'-w\') ? ss($ARGV[1]) : ss(3);
а по существу то и такая должна работать?
@ARGV[0] eq "-w" ? $wait=@ARGV[1] : $wait=3;
просто у тебя саб выполняет операции присваивания
такая конструкция работает(твоя) но это с примерение саба
($wait eq \'-w\') ? ss($ARGV[1]) : ss(3);
а по существу то и такая должна работать?
@ARGV[0] eq "-w" ? $wait=@ARGV[1] : $wait=3;
просто у тебя саб выполняет операции присваивания
12
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 14:08:18 »
ну у меня перл 5
по существу, в чем трабл конструкции может быть то?
по существу, в чем трабл конструкции может быть то?
13
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 13:37:14 »
то что ты написал у тебя что выдает?
14
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 13:33:52 »
./argv2.pl -w 10
Perem=-w
гы гы сам у себя тестил?
Perem=-w
гы гы сам у себя тестил?
15
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 13:31:50 »
#! /usr/bin/perl
$paramcount=@ARGV;
print "Params: $paramcount @ARGV\\n";
@ARGV[0] eq "-w" ? $wait=@ARGV[1] : $wait=3;
print "Perem=$wait\\n\\n";
@ARGV[0] eq "-w" ? $wait2=@ARGV[1] : print "Not used -w\\n";
print "Perem2=$wait2\\n\\n";
if (@ARGV[0] eq "-w"){
$wait3=@ARGV[1];
}else{
$wait3=3;
}
print "Perem3=$wait3\\n\\n";
#########END OF SCRIPT#######
Результаты
./argv.pl
-1
Perem=3
Not used -w
Perem2=
Perem3=3
Результат 2
./argv.pl -w 10
1 -w 10
Perem=3
Perem2=10
Perem3=10
$paramcount=@ARGV;
print "Params: $paramcount @ARGV\\n";
@ARGV[0] eq "-w" ? $wait=@ARGV[1] : $wait=3;
print "Perem=$wait\\n\\n";
@ARGV[0] eq "-w" ? $wait2=@ARGV[1] : print "Not used -w\\n";
print "Perem2=$wait2\\n\\n";
if (@ARGV[0] eq "-w"){
$wait3=@ARGV[1];
}else{
$wait3=3;
}
print "Perem3=$wait3\\n\\n";
#########END OF SCRIPT#######
Результаты
./argv.pl
-1
Perem=3
Not used -w
Perem2=
Perem3=3
Результат 2
./argv.pl -w 10
1 -w 10
Perem=3
Perem2=10
Perem3=10