List of cookie/getcookie.cgi

#!/usr/local/bin/perl5

# getcookie.cgi
#
#       1997/11/14 Ver.0.01
#
# (C) 1997 がま 
# e-mail addr : gama@mvg.biglobe.ne.jp
#
# パラメータ0   Name
# パラメータ1   位置
# パラメータ2   既定値
($varname,$pos,$default) =@ARGV;

# HTTP_COOKIE の処理

@cookie = split("; ", $ENV{'HTTP_COOKIE'});

$i = 0;
while ($cookie[$i] ne "" ) {
        ($name, $value) = split("=", $cookie[$i]);      # 
        if ($name eq $varname) {
                @field = split("&",$value);             # フィールド毎に分割
                last;                                   # ループを抜ける
        }
        $i++;
}

if ($field[$pos] eq "") {
        print "$default";                               #
} else {
        $field[$pos]=~ s/%(..)/pack("c",hex($1))/ge;    # decode
        print "$field[$pos]";                           #
}