รหัสต้นฉบับเพื่อการศึกษา

File : cookcall.pl. ID : 1102

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame

#!/usr/local/bin/perl
use CGI qw/:standard/;
use CGI::Cookie;
%Cookies = fetch CGI::Cookie;
&compilevalue;
print "Content-type: text/html\n\n";
print "<body><pre>";
print "E-Mail : $v{'email'}\n";
print "Sex : $v{'sex'}\n";
print "Prefer : $v{'prefer'}<hr>";
print %Cookies;
sub compilevalue {
  foreach $r (keys %Cookies) {
    @rec = split(";",$Cookies{$r});
    ($name,$value) = split("=",$rec[0]);
    $value =~ tr/+/ /;	
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $v{$name} = $value;
  }
}