Сообщения

1

PHP / Реформат даты

« : 21 Февраля 2007, 19:20:02 »

andymc:
Если дата в формате \'02/21/2007 3:57:50\', то ...
function reformat_date($date, $new_format) {
  $tms = strtotime($date);
  return date($new_format, $tms);  
}

На данный момент так и делаю, но есть проблема - strtotime($date) не понимает дат через точку.
В том то и задача - есть функция date которая может отформатировать дату любым удобным образом, мне нужна обратная функция которая может из строки собрать timestamp по строке форматирования.
Т.е. функция должна взять из строки форматирования формат года и найти по нему год в строковом представлении даты аналогично месяц и день и преобразовать это все в новую строку с датой в другом формате.

например мне надо:

$new_date=reformat_date($_POST[\'date\'],\'d.m.Yг.\',$_POST[\'format\']);

Неужели никому не приходилось сталкиваться?

2

PHP / Реформат даты

« : 21 Февраля 2007, 01:29:54 »

Привет всем.
Хотелось бы функцию реформатирования дат из одного формата в другой:
(string) reformat_date($date(string),$new_format(string), $old_format(string)=\'Y-m-d H:i:s\')

Уверен, что кто то это уже делал и скорее всего лучше чем сделаю я. Наверное быстрее всего будет с регулярными выражениями. Если все таки придется делать самому подскажите плиз как разбить текущую дату на части по формат-строке old_format? (Как собрать в новую уж понятно)

3

Perl / Создание базы данных MySQL средствами Perl

« : 09 Марта 2004, 02:48:15 »

$drh = DBI->install_driver(\'mysql\');
$rc = $drh->func(\'createdb\', $database, $host, $user, $password, \'admin\');

Если надо подробнее:
  Server Administration

        admin
                $rc = $drh->func("createdb", $dbname, [host, user, password,], \'
admin\');
                $rc = $drh->func("dropdb", $dbname, [host, user, password,], \'ad
min\');
                $rc = $drh->func("shutdown", [host, user, password,], \'admin\');
                $rc = $drh->func("reload", [host, user, password,], \'admin\');

                  or

                $rc = $dbh->func("createdb", $dbname, \'admin\');
                $rc = $dbh->func("dropdb", $dbname, \'admin\');
                $rc = $dbh->func("shutdown", \'admin\');
                $rc = $dbh->func("reload", \'admin\');

            For server administration you need a server connection. For
            obtaining this connection you have two options: Either use a
            driver handle (drh) and supply the appropriate arguments (host,
            defaults localhost, user, defaults to \'\' and password, defaults
            to \'\'). A driver handle can be obtained with

            $drh = DBI->install_driver(\'mysql\');

(perldoc DBD::mysql)
=-=-=-=-=-=-=-=--=-=--=--=---=-=-=-=-=-=-=-=
У меня есть одна просьба:
SQL я только начал, очччень хоцца посмотреть готовый пример на Perle, не просто мануал типа 2*2=4, (по нему высшей математике не научишься), а действительно полноценный скрипт:
Нужно: ренистрация, аутетификация юзеров, вывод их инфы в соответствии с разветвленным деревом категорий где каждой соответствует несколько подкаталогов....
Да и вообще любой скрипт связка Perl+MySQL будет хорошей помощью
Обязуюсь не использовать в коммерческих целях, только для самообразования (все равно мне придется самому все писать).
ПЛИЗЗЗ!

4

Perl / Декодирование формы: Знаки "+" и "=". КАК?

« : 06 Марта 2004, 20:04:14 »

Спасибо, я понимаю некоторое раздражение по поводу моих вопросов, но я действительно только начинающий.
К сожалению в тех манах, что я читал не акцентировалась прагма strict. До сих пор я считал, что первое использование переменной в левой части присваивания - это и есть обьявление переменной.
$dbh = DBI->connect("DBI:mysql:database=$DB:localhost",$db_user,$db_password) 
       || die "Can\'t connect: $DBI::errstr\\n"; 
(все переменные используемые справа обьявленны перед этим)
Если это не так то как еще можно обьявить хэндлер $dbh?

Может что-то вроде $dbh = new(DBI); ?

Насчет изобретения велосипедов: нелюблю я использовать чужие библиотеки не разобравшись как они работают. Ту функцию которую я использую для обработки формы я взял из литературы, разобрал построчно, переписал посвоему (обеденив некоторые регэкспы), понимаю полностью. escape из CGI::UTIL я недопонимаю, но вроде основное что мне непонятно связано именно с модульностью - обработка формы почти такая же, и как я понимаю с теми же проблемами:
пробелы и плюсы передаются  из формы одним и тем же сиволом - "+" поэтому, как я понимаю, надо еще перед передачей значений заменить все "+" на "_PLUS;"
(хотя, я конечно не уверен, что плюс обозначающий пробел, абсолютно такой же, как плюс обозначающий собссно сам плюс )

5

Perl / Декодирование формы: Знаки "+" и "=". КАК?

« : 06 Марта 2004, 02:44:16 »

комментишь strict
#2: use strict;
и все пашет!

6

Perl / Декодирование формы: Знаки "+" и "=". КАК?

« : 06 Марта 2004, 02:40:06 »

Но ведь после
$todecode =~ tr/+/ /;       # pluses become spaces
плюсов тоже не останется совсем?

еще такой вопрос:
как включить DBI + strict?

use DBI;
use strict;
...
$dbh = DBI->connect("DBI:mysql:database=$DB:localhost",$db_user,$db_password) 

   || die "Can\'t connect: $DBI::errstr\\n";
...

в логах появляется:
Global symbol "$dbh" requires explicit package at ...
и чо делать?

7

Веб Сервера / А как можно сделать тест скорости хостинг машин и хостеровского канала?

« : 04 Марта 2004, 11:08:30 »

Спасибо Будем дерзать!
Будем хостеров терзать!:)

8

Perl / Декодирование формы: Знаки "+" и "=". КАК?

« : 04 Марта 2004, 11:07:00 »

Ясно, мой perldoc.bat глюченый был, а exe у мя и вовсе нет щас поправил, с этим проблем нет.....

А вот sub escape{ я не нашел... есть только escapeHTML:
начинается так:
my ($self,$toencode,$newlinestoo) = CGI::self_or_default(@_);
(использовать внутренние параметры или их дефолт чтоли?)
а что такое
\'escapeHTML\' => <<\'END_OF_FUNC\',
(блин слева одно справа -другое)

9

Perl / Декодирование формы: Знаки "+" и "=". КАК?

« : 04 Марта 2004, 03:55:33 »

Блин! Ну почему Web программисты все такие злюки
С программы нужно было регистрацию снять - залез на
-- == MADALF HACK TEAM == --прочитал факу, спросил - все ясно понятно обьяснили...
А здесь на все один ответ - перлдок А он огромный шо писец...
И везде ссылки на тысячи других разделов
Кстати как под вынью запустить перлдок по нужной команде (я все через хтмл читаю)

Насчет CGI - не знаю кому как но мне гораздо читабельнее
%Form чем выкрутасы с парам и стрелочками... или print "Content-type..." запоминать все варианты применения модулей мне лень, проще самому свои функции писать.....
А вообще это дело вкуса, имхо.... многие мануалы написаны без CGI.pm значит кто-то и так пользуется....
Да и не вижу я в нем удобства....
Мне бы вот только плюсики научиться передавать

10

Веб Сервера / А как можно сделать тест скорости хостинг машин и хостеровского канала?

« : 04 Марта 2004, 03:40:55 »

Прошу прощения конечно, но я к сожалению не понял ни слова
Ping - то есть стандартная тулза мастадонта?
DDoS?
на перле разве нельзя просто выполнить скрипт с while\'ом?
Я просто под вынью, и не могу понять как мне получить
perldoc benchmark

11

Perl / Декодирование формы: Знаки "+" и "=". КАК?

« : 03 Марта 2004, 02:26:28 »

При декодировании использую стандартную функцию Parseform из литературы. В ней плюсы заменяются пробелами а по знаку равно идет разбивка на пары ключ=значение. Конечно при это если вводишь + или = в форме они глючат.
Модули CGI и HTML мне не понравились, да и вообще хоцца свою функцию юзать а не подключать модуль ради нее одной.
Подскажите кто знает плиз.

12

Веб Сервера / А как можно сделать тест скорости хостинг машин и хостеровского канала?

« : 03 Марта 2004, 01:21:21 »

Собсно... САБЖ
Никак не могу подобрать хостинг, пробовал zenon (135$) - так у меня украинский хостинг за 12$ в год быстрее грузится :eek:
Вот и решил что надо на тестовом аккаунте проверять скриптом каким нить

13

Всё о Html / Подскажите плиз! Как сделать вставку в html страницу из txt файла!

« : 03 Марта 2004, 01:01:40 »

Насколько я понимаю нехочется делать через дополнительные фигки поскоку хостинг бесплатный (сам такое искал).
Вроде это как-то можно сделать на Яве...
Только я так и недокопался тому що ява меня бесит :<
перл помоему гораздо приятнее

14

Обсуждение сайтов / Оцените новый минипортал

« : 20 Января 2004, 04:03:56 »

Оцените пожалуйста в плане удобства дизайна и т.д.

http://all.biz.ua

Вся Украина