#=プログラムの実行結果=(データの送受信) back
データを入力して送信ボタンを押して下さい
お名前:
ご年齢:
                      
まだデータが入力されていません!


#=プログラム=

# HTMLフォーム入力部分

print 〈〈"end_form";
〈BODY onload="document.myform.namae.focus();"〉    # かーそるのフォーカス(Java)
〈FORM NAME = "myform" ACTION = "./test15.cgi" METHOD = "GET"〉
データを入力して送信ボタンを押して下さい〈BR〉 お名前:〈INPUT TYPE = "text" SIZE =50 NAME = "namae"〉〈BR〉
ご年齢:〈INPUT TYPE = "text" SIZE =50 NAME = "otosi"〉〈BR〉
                
〈INPUT TYPE = "submit" VALUE = "送信ボタン"〉
      〈INPUT TYPE = "reset" VALUE = "取消ボタン"〉
〈/FORM〉〈/BODY〉
end_form

# 受信データ処理部分

require 'jcode.pl';
jcode'convert(*value, 'sjis');
$data = $ENV{"QUERY_STRING"};
if (! $data){
print "まだデータが入力されていません! \n";
}else{
$i = 0;
@data_bunkai = split(/&/, $data);
foreach $data_buhin (@data_bunkai){
($name, $dataf) = split(/=/, $data_buhin);
$dataf =~ tr/+/ /; $dataf =~ s/%([\dA-Fa-f0-9][\dA-Fa-f0-9])/pack("C", hex($1))/eg;
$datal[$i] = $dataf;
$i++;
}
&viu_wa(@datal);
}

# データ書出しサブルーチン

sub viu_wa{
my($namaewa,$otosiwa) = @_;
$namaewa =~ s/〈/&|t;/g;    # タグ入力された場合の防御
$otosiwa =~ s/〈/&|t;/g;    # タグ入力された場合の防御
$otosiwa =~ s/[^0-90-9]*//g;    # 大小数字以外の文字を空白に置換する
print 〈〈"end_viu";
〈hr〉
やあ, $namaewa さん〈BR〉
お歳は $otosiwa 才だね。〈BR〉
end_viu
}

Copyright © 1999 by
fujiko. All Rights reserved. back