Forum Webscript.Ru

Программирование => Perl => Тема начата: Ardzhan от 07 Мая 2002, 16:09:29

Название: Location
Отправлено: Ardzhan от 07 Мая 2002, 16:09:29

Ставлю кукис и перенаправляю на нужную страницу:
print "Set-Cookie: ".$adminname."=".$adminpass.";";
print "Location: ".$scripturl."\\n\\n";
Но кукис ставится а перенаправления не происхолдит - выдается чистая страница :( Ничего до этого вроде не выводил. :confused:

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

Название: Location
Отправлено: YA от 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

Название: Location
Отправлено: Ardzhan от 07 Мая 2002, 16:24:40

Цитировать

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

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

Название: Location
Отправлено: YA от 07 Мая 2002, 17:37:18

По поводу PHP спорить не буду, а вот в Perl вряд ли 4 конкатенации будут быстрее 2-х интерполяций.

Название: Location
Отправлено: Chs от 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).


Название: Location
Отправлено: YA от 07 Мая 2002, 23:16:58

Н-да... Век живи - век учись! Зря я поленился проверить.

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

Название: Location
Отправлено: Chs от 08 Мая 2002, 00:02:24

Цитировать

Chs, а какой бы вариант использовал ты? [вопрос к авторитету] Только честно

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