List of cookie/nickname.cgi

#!/usr/local/bin/perl5

# getcookie.cgi
#
#       1997/11/16 Ver.0.01
#
# (C) 1997 がま 
# e-mail addr : gama@mvg.biglobe.ne.jp
#
#----------------------------------------------------------------------
$varname="NickName";            # 変数名
$pos=   0;                      # フィールドの位置

# 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] ne "") {
        $field[$pos]=~ s/%(..)/pack("c",hex($1))/ge;    # decode
        print "ようこそ！ $field[$pos] さん";           #
}