Сообщения

1

Вакансии / Программист WEB, 1800$ - 2300$

« : 14 Марта 2007, 15:15:21 »

Не попал под ваше требования
Perl + Mysql + FreeBSD это связка лет эдак 5 уже

Хотя PostgreSQL можно изучить если нужно будет.

1500$-2500$ по курсу какому ?
Белая ли З.П. ?

2

Perl / Написание модулей

« : 16 Ноября 2006, 16:30:17 »

DartSidius:
2. Модули загружаются во время компиляции а не выполнения скрипта, поэтому бысрее работают

Яб так не сказал....

3

Вакансии / Web-разработчик в отдел разработки корпоративных систем

« : 28 Октября 2006, 22:46:42 »

А язык то какой ?

4

Базы данных / запрос (DISTINCT)

« : 23 Июня 2006, 10:56:55 »

Да не всё оказалось проше



select DATE_FORMAT(CreationTime,\'%Y%m%d\'), DATE_FORMAT(CreationTime,\'%d\') as day, count(i) from Events group by DATE_FORMAT(CreationTime,\'%Y%m%d\');

5

Базы данных / запрос (DISTINCT)

« : 22 Июня 2006, 15:38:37 »

html_coder


Тьфу блин SUM

Для каждого дня мне надо подсчитать сколько было запросов
То есь в базу пишиться каждый час и нужно всё это дело вывести в формате  | дата | колличество результатов |

6

Базы данных / запрос (DISTINCT)

« : 22 Июня 2006, 14:58:46 »

Ребята помогите....
Есть таблица

|date|count|

Формат такой

| 2006-06-21 12:44:14 | 340 |
| 2006-06-21 23:00:01 | 560 |
| 2006-06-22 10:45:24 | 150 |
| 2006-06-22 15:50:00 | 200 |


Мне нужно вывести

Мне нужно что б в поле date было только число месяца например 21 и во второй были подсчитаны результаты |900|

Составил запрос

SELECT DISTINCT(DATE_FORMAT(`date`,\'%d\') ) FROM `log`
Он выводит число месяца а вот как сделать чтоб ещё вывелось колличество результатов....

SELECT DISTINCT(DATE_FORMAT(`date`,\'%d\') ), MAX(`count`) FROM `log` что что не пашет ...............  


То есть в конце должно получиться
|21|900|
|22|350|

7

Perl / проблема....с SSL

« : 19 Мая 2006, 16:55:12 »

Да не важно какой скрипт это на всех скриптах....в HTTPS настройки дефолтные то есть собрали апач дали на исполнения скрипты и всё такая бадяга.....

8

Perl / проблема....с SSL

« : 19 Мая 2006, 15:41:15 »

мужики ну что никто не знает
В логах
Premature end of script headers

9

Perl / проблема....с SSL

« : 17 Мая 2006, 17:37:36 »

Ребята такая мега проблема....с SSL (сертификат выдаёться обычным путём то есть зашёл чел получил сертификат)


Есть скрипт... который замечательно работал в с обычным HTTP, но если его перенести в HTTPS начинаються проблемы...

А именно через промежуток времени если обратиться к скрипту тупо грузит процессы и висит там...
То есть в top я вижу что процесс PERL5.8.8 загружен на 90% - 99%

отсюда вопрос есть ли разница написания скрипта для HTTP и HTTPS ?

Может была у кого нибудь такая проблема ?

10

Perl / Модуль и хэши

« : 16 Мая 2006, 20:22:46 »

Ну я типо не дописал его...
Мне всего лиш нужно в метод send закинуть структуру хэша...

Вот и не написал его так как я не знаю как сделать

11

Perl / Модуль и хэши

« : 16 Мая 2006, 14:35:05 »

#!/usr/bin/perl
package modules::SMTP;
our $VERSION = 1.00;
use strict;
use Mail::Sender;


sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $self  = {};
  $self->{TEMPLATE} = undef;
  $self->{EMAIL} = undef;
  bless($self, $class);
  return $self;
}


sub template { #Шаблон для отправки письма

my $self = shift;

if (@_) { $self->{TEMPLATE} = shift }

return $self->{TEMPLATE};
}

sub email { #Куда отправляем письмо

my $self = shift;

if (@_) { $self->{EMAIL} = shift }

return $self->{EMAIL};
}


1;



Простой модуль....
Так вот у меня проблема как из скрипта передать в модуль

modules::SMTP->send(\'mail.tmpl\', \'info@domain.ru\' {res1=>"456", res2=>"7865", res_ok=>"ffff"} )


То есть застрял на хэшах.

12

Perl / Перл, первый скрипт

« : 08 Мая 2006, 11:48:43 »

Может запустить так perl скрипт.pl

13

Perl / Обработка отсуствия модуля

« : 17 Апреля 2006, 13:17:32 »

NeoNox ты гений...

14

Perl / Обработка отсуствия модуля

« : 17 Апреля 2006, 08:11:07 »

А можно по конкретней.....

15

Perl / Обработка отсуствия модуля

« : 16 Апреля 2006, 23:24:04 »

#!/usr/bin/perl
use strict;
#use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Template;
use Digest::MD5;
use XML::Simple;
use CGI qw( :standard );
use CGI::Session;
use CGI::Cookie;
use modules::Settings;
use modules::Validator;

print "Content-Type: text/html;\\n\\n";


Как выдать своё сообщения если например какого нибудь модуля нет в системе.....?