![]() |
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() ![]() ![]() |
|
Jednotka | Význam |
s | sekunda |
m | minuta |
h | hodina |
d | den |
M | měsíc |
y | rok |
Uveďme si příklad uložení cookie. Nejprve vytvoříme cookie stejnojmenou funkcí a následně odešleme hlavičky.
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
my $cookie = cookie(
-name=>"pocet_navstev",
-value=>1,
-expires=>"+10d",
);
print header(-type=>"text/plain", -cookie=>$cookie);
#následuje samotný obsah dokumentu
Nyní se podívejte ve vašem oblíbeném www prohlížeči na správu cookies. Vytvořila se zde nová položka. Na adrese localhost máme proměnnou pocet_navstev s hodnotou 1. Zde je screenshot zobrazující správu cookies v Konqueroru, kde je hezky vidět, co se stalo.
Je-li zapotřebí uložit více než jedinou cookie, lze jako argument prvku -cookie předat odkaz na seznam.
print header(-cookie=>[$cookie1,$cookie2]);
Voláním funkce cookie s jménem cookie jako parametrem získáme nazpět hodnotu.
$cookie = cookie("cookie");
V seznamovém kontextu vrací funkce cookie seznam jmen všech cookies.
Na závěr si napíšeme jednoduché počítadlo návštěv. Pokaždé, když návštěvník zobrazí naši stránku, dostane informaci, kolikkrát tu byl.
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
my $pocet_navstev = cookie("pocet_navstev") or 0;
$pocet_navstev++;
my $cookie = cookie(
-name=>"pocet_navstev",
-value=>$pocet_navstev,
-expires=>"+1y",
);
print header(-cookie=>$cookie);
print start_html();
if($pocet_navstev == 1){
print h1("Vítejte! Jste zde poprvé!");
}else{
print h1("Jste tu již po $pocet_navstev.");
}
print end_html();
Nyní tento skript několikkrát spustíme a budeme monitorovat stav cookies. Zde vidíme, jak se hodnota naší cookie mění.
|
||
DISCUSSION
For this item is no comments. |
||
Add comment is possible for logged registered users.
|
1. |
Pacman linux Download: 5108x |
2. |
FreeBSD Download: 9323x |
3. |
PCLinuxOS-2010 Download: 8814x |
4. |
alcolix Download: 11203x |
5. |
Onebase Linux Download: 9921x |
6. |
Novell Linux Desktop Download: 0x |
7. |
KateOS Download: 6477x |
1. |
xinetd Download: 2638x |
2. |
RDGS Download: 937x |
3. |
spkg Download: 5276x |
4. |
LinPacker Download: 10416x |
5. |
VFU File Manager Download: 3405x |
6. |
LeftHand Mała Księgowość Download: 7505x |
7. |
MISU pyFotoResize Download: 3106x |
8. |
Lefthand CRM Download: 3769x |
9. |
MetadataExtractor Download: 0x |
10. |
RCP100 Download: 3390x |
11. |
Predaj softveru Download: 0x |
12. |
MSH Free Autoresponder Download: 0x |