Темы

1

Базы данных / запрос (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|

2

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

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

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


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

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

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

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

3

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"} )


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

4

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";


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

5

Perl / mod_perl

« : 10 Апреля 2006, 13:45:40 »

А вобще как сделать чтоб mod_perl не работал с апачаеского правами

То есть сменить пользователя....?

И возможно ли к каждому виртуальному хосту сделать чтоб он запускался со своими правами....

6

Perl / exit;

« : 03 Апреля 2006, 20:48:57 »

Чем отличаеться
exit; от exit(0); и от exit(64);


Просто в скриптах часо видел такое значение....

7

Perl / Template Toolkit и Mail::Sender

« : 31 Марта 2006, 23:21:13 »

Имеем Template Toolkit и Mail::Sender

Так вот встала проблема как прикрепить шаблон к Mail::Sender

То есть должен шаблон в итоге отправиться по E-Mail

$sender->Open({ to => "$email", subject => "TEST SUBJ" });
$sender->SendLineEnc("здесь должен быть шаблон");
$sender->Close();



Уже с ма схожу.................
как сделать помогите

8

Perl / CVS

« : 28 Марта 2006, 18:12:40 »

Вобщем встала проблема.......
Учёта контроля версий продукта и автоматического обновления у клиента...

Есть ли какие нибудь модули для этого

9

Perl / Реально ли скрыть код перл

« : 28 Марта 2006, 11:52:06 »

Вобщем сабж нашёл perl2exe но что-то говорят что его можно взломать...

А какие ещё существуют способы сделать скрипт в бинарник или его зашифровать чтоб невозможно было код прочитать...

10

Perl / XML::Simple

« : 23 Марта 2006, 00:48:53 »

А как обработать пустой тэг....

нашёл SuppressEmpty => 1

Ну у меня XML формируеться так.....


1
1


Но иногда передаёться следующее

1
1



Так как проверить есть ли она или нет....