Автор Тема: Location  (Прочитано 2651 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Ardzhan

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 205
  • +0/-0
  • 0
    • Просмотр профиля
    • http://ardzhan.km.ru
Location
« : 07 Мая 2002, 16:09:29 »
Ставлю кукис и перенаправляю на нужную страницу:
print "Set-Cookie: ".$adminname."=".$adminpass.";";
print "Location: ".$scripturl."\\n\\n";
Но кукис ставится а перенаправления не происхолдит - выдается чистая страница :( Ничего до этого вроде не выводил. :confused:

Может нельзя кукис ставит и перенаправлять?
Тогда только через:

Оффлайн YA

  • Модератор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 597
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Location
« Ответ #1 : 07 Мая 2002, 16:20:38 »
Цитировать
print "Set-Cookie: ".$adminname."=".$adminpass.";";

Так проще:
print "Set-Cookie: $adminname=$adminpass;"; ;)

Цитировать
Может нельзя кукис ставит и перенаправлять?

См. http://forums.webscript.ru/announcement.php?s=&forumid=14#q9.1
Литературный перевод с русского и английского на Perl. Дорого!

Оффлайн Ardzhan

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 205
  • +0/-0
  • 0
    • Просмотр профиля
    • http://ardzhan.km.ru
Location
« Ответ #2 : 07 Мая 2002, 16:24:40 »
Цитировать
Так проще:
print "Set-Cookie: $adminname=$adminpass;";

Но насколько я знаю (по-крайней мере в PHP) быстрее будет так:
print "Set-Cookie: ".$adminname."=".$adminpass.";";
PS А за ответ спасибо. Прочитал! FAQ Rulezzz, если б не склероз... :p

Оффлайн YA

  • Модератор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 597
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Location
« Ответ #3 : 07 Мая 2002, 17:37:18 »
По поводу PHP спорить не буду, а вот в Perl вряд ли 4 конкатенации будут быстрее 2-х интерполяций.
Литературный перевод с русского и английского на Perl. Дорого!

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
Location
« Ответ #4 : 07 Мая 2002, 21:49:08 »
Цитировать
...а вот в Perl вряд ли 4 конкатенации будут быстрее 2-х интерполяций.

Будут, будут.:))


#!/usr/bin/perl -w

use Benchmark qw(cmpthese);

cmpthese(1000,{subst=>\'$adminname="aaa";$adminpass="ppp"; print "Set-Cookie:$adminname=$adminpass;";\' ,
 concat=>\'$adminname="aaa";$adminpass="ppp"; print "Set-Cookie:".$adminname."=".$adminpass.";";\'});

---------- Perl run ----------
Benchmark: timing 1000 iterations of concat, subst...
concat:  3 wallclock secs ( 2.92 usr +  0.00 sys =  2.92 CPU) @ 342.47/s (n=1000)
subst:  4 wallclock secs ( 4.62 usr +  0.00 sys =  4.62 CPU) @ 216.45/s (n=1000)
        Rate  subst concat
subst  216/s     --   -37%
concat 342/s    58%     --
Normal Termination
Output completed (11 sec consumed).
2B OR NOT 2B = FF

Оффлайн YA

  • Модератор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 597
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Location
« Ответ #5 : 07 Мая 2002, 23:16:58 »
Н-да... Век живи - век учись! Зря я поленился проверить.

Тем не менее, очень любопытно...
Chs, а какой бы вариант использовал ты? [вопрос к авторитету] Только честно :)
Литературный перевод с русского и английского на Perl. Дорого!

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
Location
« Ответ #6 : 08 Мая 2002, 00:02:24 »
Цитировать
Chs, а какой бы вариант использовал ты? [вопрос к авторитету] Только честно

Обычно конкатенацию - она нагляднее, не люблю в строке все громоздить, особенно когда она длинная.
Но в данном случае наверное твой.:))
2B OR NOT 2B = FF

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28