basirana
asked on
HTTP_COOKIE - > PERL
Hi
use CGI;
MAIN:
{
my $cgi = CGI->new();
#!/usr/bin/perl
$cookie = $ENV{HTTP_COOKIE}
print "Content-type: text/html\n\n";
print "<PRE>$cookie</PRE><P>";
}
}
when I run above script the output is
DoesThisWork="yes"; SMIDENTITY=KJ6wsaNv3X9XA1S gBFE+5ZDKG wpOdxS5G/v 2nad24cB68 kRclUh0PjP E9kkXOYJ8G jq+muAmnxh 6+8G2532Nm zNKjG0eVj2 47kQO59Skf ASyIZ5uf33 DmMpi4YfZ+ KVFsxrOAnq H+nNIt0a/e CcWyWQu0hv cVamLX/hrb dczBHlDFh1 KoCyxJvGcZ vniEoaGDzv AmfmBKfFwF hZaECrQoBg AxV704qjLn QIhYHI6lmT IpIHCmgj3j qzF5T9rkuj z7HD62VLA2 LBFAtMMtyK QltTwId8u/ JvBTXufLBe VE0f5UUctB 0c92TBCU7D x5zWTW0UUE MIE40DxDYN Ne/wFgLYse SfiFeJ0ULC P6XgUVqDjh xGNVoVvFjM lm2/sqyLVA RGr1bYnbIT 7eTPIfx5Q9 Silw7cExIL 817d4zQLEu BQj34nuIXF C3/p6cXMoY aBKEiOx/4w H1CopvSUTH RCikuHTxSz x8etM1OKlW B9WvRmVMHt n8jJSZ1MLf 3qUx0sraDJ ux2ZDnpKJR dfADpAS+Kz WHE5CCiLFl wL9VjIPMva c2augrt808 hbTEbi0k21 U5vH5ljHGT sTg2hLC6eK CAqAUeq9/F pcL; SMSESSION=UjCMUWSubpsodqEf v5TeugVB5+ obytGF8uce 8M1uhhrhKz 8uJHFMzpKY +Ncf21pRdN +b+xyCVowo Ob0RRWqZcZ SeZmmZsKZN yKd5RmyrBO zPaogFyB2n 8qjrg2kzLP +rdjLrnJb8 /IvDViKsuo hICcbua+0r TZBkB0D7z8 2PlwmCoIPS AaWi6cZsfN FVOs435Qpi 7P3YKPpSrh Mnk2UwMQZ3 7nhbwBSfJ2 uIH4xn4ttD XJLAoZOhw0 30rX9ggE+/ I4OCZNnvuw LB/r2mu27s rsYFvrvKIs g8UO6LCJyQ JqUtUYkz/V WN1vAnDTvJ 5gi6+TjTZr 7aPS0O6JdG FTh8LjvewQ m/999mjCDS o9AYbLIrFv t/TDf2Ah7I U5TiFsn9h5 Q6iCcRRAbo EWgz4wOUc9 SGdx6ezBF2 CSB1zayxC4 SulYMcAuZG 4PmIrVUU/b pCjpqcxnrM 4mRIM3X8q7 9wNwZMgS4X Myo5X6/NNI uJSST+wRDF cAxbFz8Vt+ nHgKq2/veI 2cLiMs9Z9V 6XkGRYmMN8 +0GCT/KiXw ZT8E6i5cLV f/F20j61sN uo63yYiDLw /s5Fq9i+j0 kIlW2UMS74 /eYGr/buka GmkMPWe6I1 r60OgJhVdN /x3h70nbOA oXbix8mmF2 PnT4XdN1s6 q37QrBKLD+ oL1IefPQK3 BJWtkQo5Iw Li/GktOhyO HMNPsjdpjA zUTHBbxhgx 2ljN7UT8Lc VjG8UaTUwF BfOKtbaFV1 UPW+NU6UHx 8fpiyGL3HI Ue1t4fQhqC OcwY9amRy5 iJt8EqswUb tTNz7wjxWi kEe8tXdgZH BCH4y3XPtJ cE9aGT8cUW iD6B6T9wHu YLoGbS424u 5QjkmUrkwu oyAhQMJBa4 WEU/qSP0TB K+l5/CiZbb KVwKE3Rhrv 7BEqp2Yprr c1wKJI349D k7hXpYuZ2X tWFWg7GFUw oWWxM8kJlS 2enmXFUwx6 P/I928unC+ MlnzWA==; email=xyz@email.com; user_id=xyz; id=123456
I want to access email, user_id and id saperatly.
Can you please help to change code so that I can access three parameters saperatly.
Thanks
use CGI;
MAIN:
{
my $cgi = CGI->new();
#!/usr/bin/perl
$cookie = $ENV{HTTP_COOKIE}
print "Content-type: text/html\n\n";
print "<PRE>$cookie</PRE><P>";
}
}
when I run above script the output is
DoesThisWork="yes"; SMIDENTITY=KJ6wsaNv3X9XA1S
I want to access email, user_id and id saperatly.
Can you please help to change code so that I can access three parameters saperatly.
Thanks
http://www.wiley.com/legacy/compbooks/stein/text/cookie.txt
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.