はらぺこカエル

#!/usr/bin/perl sub decode { local($args, $n_read, *terms, $value, $tag); if($ENV{'REQUEST_METHOD'} eq "POST"){ $n_read = read(STDIN, $args, $ENV{'CONTENT_LENGTH'}); } else { $args = $ENV{'QUERY_STRING'}; } @terms = split('&', $args); foreach (@terms) { ($tag, $value) = split(/=/, $_, 2); $value =~ s/\+/ /g; $value =~ s/%(..)/pack("c", hex($1))/ge; # &jcode'convert(*value, 'euc'); $tags{$tag} = $value; } } sub gamePanel { print < はらぺこカエル

OUT } sub loginPanel { print < はらぺこカエル

ニックネームとレベルを選択してください

OUT } ############# # Main Part # ############# &decode(); if($tags{"level"} == "") { &loginPanel(); exit; } if($tags{"namae"} eq "") { $tags{"namae"} = "noname"; $namae = "noname"; } else { $namae = $tags{"namae"}; } &gamePanel(); exit;


ニックネーム	(空欄だと自動的に「noname」になります)
レベル