>136
エラー処理なし、製作次官15分

#!/usr/bin/perl
@pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach (@pairs) {
($key,$value) = split(/=/);
$value =~ s/%([\da-fA-F]{2})/pack("C", hex($1))/eg;
$value=~ tr/+/ /;
$F{$key} = $value;
}
if($ENV{'QUERY_STRING'} eq ''){&display}
if($F{'mode'}eq 'jump'){jump($F{'number'});}
if($F{'mode'}eq 'entry'){entry();}
exit;

sub display{
header();
print <<EOM;
GIGAコード<br>
<form action=$script>
<input type=text name="number">
<input type=hidden name=mode value="jump">
<input type =submit>
</form>
<br><hr><br>
登録<br>
<form action=$script>
<input type=text name="url">
<input type=hidden name="mode" value="entry">
<Input type=submit></form>
</body></html>
EOM
exit;
}