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

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


Сообщения - commander

Страницы: 1 ... 90 91 [92]
1366
Perl / Увеличение даты
« : 21 Апреля 2004, 16:36:23 »
Yaroslav
пардон... немного не так... :
#!/usr/bin/perl -w
use strict;
use Time::Local;
my $date="2004-02-29";
my ($year, $mon, $day) = split/\\-/, $date;
$mon-=1;
my $unix_time=timelocal(0, 0, 0, $day, $mon, $year);
$unix_time+=86400; #ïðèáàâëÿåì îäèí äåíü...
($day, $mon, $year) = ((localtime($unix_time))[3,4,5]);
$year+=1900;
$mon+=1;
$date= sprintf("%04d-%02d-%02d", $year, $mon, $day);
print "$date";

на этот пример никаких проверок на високосный год ставить не НАДО!!!
perldoc Time::Local

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

попробуйте разобраться в ответе... :)

1367
Perl / Увеличение даты
« : 21 Апреля 2004, 15:21:19 »
#!/usr/bin/perl -w
use strict;
use Time::Local;
my $date="2004-03-30";
my ($year, $mon, $day) = split/\\-/, $date;
my $unix_time=timelocal(0, 0, 0, $day, $mon, $year);
$unix_time+=86400;
($day, $mon, $year) = ((localtime($unix_time))[3,4,5]);
$year+=1900;
$date= sprintf("%04d-%02d-%02d", $year, $mon, $day);
print "$date";

1368
Цитировать
Вопрос звучал так:

ответ на него звучал так:
Цитировать
Никак, сказали же уже.

Собственно по этому я предложил другой вариант...

Цитировать
Мнение высказывать можно если оно по ТЕМЕ.

Приведите пример моего поста, удаленного вами который был не по теме?

1369
NeoNox
Это моё личное мнение по поводу вопроса:
"Тогда посоветуйте как лучше проводить авторизацию ..."
Я считаю что авторизацию лучше делать так:
Хранить данные по пользователю в Базе Данных, после идентификации записывать данные в cookie, а при обрашении к зашищенной части просто делать проверку cookie...

Или на вашем форуме нельзя высказывать своё мнение? А если это делать, то модератор удаляет ваш пост??? Как это было в вопросе с кодировками...

1370
DB + cookie

1371
Perl / Регулярное выражение?
« : 21 Апреля 2004, 11:56:46 »
NeoNox хмм... ну да согласен... :)

1372
Perl / Что за сессии за такие?
« : 21 Апреля 2004, 11:16:36 »
нет... там привязка с БД есть ... на perl.ru(пока он был жив) долго обсуждали этот модуль... :)

1373
Perl / Что за сессии за такие?
« : 21 Апреля 2004, 11:06:47 »
use Session.pm

на cpan.org пока к сожалению нет... но в инете найти можно... если хочешь могу выслать очень удобный модуль...

1374
Perl / Файлы в папках
« : 21 Апреля 2004, 11:03:11 »
как вариант:
perldoc Shell

1375
#!/usr/bin/perl -w
use strict;
my $var;
#$var->
  • {\'go\'}="GO!";

if (ref($var) eq "ARRAY")
{
print "GOOD!";
}
else
{
print "NOT GOOD!";
}

1376
Perl / Регулярное выражение?
« : 21 Апреля 2004, 10:49:49 »
удали пробелы и переносы:

~s/ //g;
~s/\\r?\\n//g;

1377
Вакансии / Работа в Санкт-Петербурге 500$
« : 20 Апреля 2004, 18:23:44 »
Основные требования к кандидату:
Требования: Perl на высоком уровне (CGI, DBI, HTML::Template, LWP), C++,
Java script, SSI, хорошее знание PostgreSQL, MySQL, Уверенные знания
Apache (mod_rewrite, mod_perl);
Операционые системы: Linux RedHat (7.3/9.0), FreeBSD, Windows;
Технический английский;
Умение работать в команде.
резюме отправлять на webmaster@st-petersburg.net

Страницы: 1 ... 90 91 [92]