#!/usr/bin/perl ##################################################### # 接続プログラム v.1.00 (c)2005 CGI-RESCUE ##################################################### read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } print "Content-type: text/html; charset=Shift_JIS\n\n"; print <<"EOF"; 郵便番号検索
エラーが発生しました。 EOF exit;