cgibessou_page008

8．入力フォーム・デコード処理

結局、今回何をやりたいかと言うとですね～・・・。
もしC言語で作れれば、チャットをしながらゲームができるプログラムを作って
ログイン画面等々、CGI言語と連動させたいと思い・・・できるかどうかは判らん！が・・・何か？(^_^；ｱﾊﾊ…

んで、CGIの部屋で勉強してた事が「無駄になって無いな～。」
って思ったんだけど、すっかり忘れとる！ｶﾞ━━(＝￣□￣＝)━━ﾝ!!
勉強部屋を参考に、復習しながら入力フォームを作ってみますっす。。。

#!/usr/local/bin/perl #####↓サブルーチン呼び出し##### # &header; &html; &footer; # #####↑サブルーチン呼び出し##### #####↓サブルーチン##### # #ヘッダーサブルーチン sub header{ print "Content-type: text/html\n\n"; print <<"header"; <title>別荘008</title> <html><body bgcolor="#ccffcc"> header } #HTMLサブルーチン sub html{ print <<"munba"; <form method="" action=""> 名前　　　　 <input type="text" name="name"><br><br> 暗証番号　 <input type="text" name="pass"><br><br><br> <input type="submit" value="入ってみる"><br><br> </form> munba } #フッターサブルーチン sub footer{ print "</body></html>\n"; footer } # #####↑サブルーチン##### exit;

え～と～、で？う～ん。この先どうするんだっけ？(^_^；ｱﾊﾊ…　本家、行ってきま～す。ε=ε=┏( メ＿メ）┛
そうか。まずは、getから復習してみよう。

$name = $ENV{'QUERY_STRING'};

名前：munba
暗証番号：11223344556677

↓

$name で表示　→　name=munba&pass=11223344556677

お次は、post。

#!/usr/local/bin/perl $name = $ENV{'CONTENT_LENGTH'}; #####↓サブルーチン呼び出し##### # &HTML_header; &HTML; &HTML_footer; # #####↑サブルーチン呼び出し##### #####↓サブルーチン##### # #HTMLサブルーチン sub HTML{ print <<"munba"; <form method="post" action="cgibessou_page008.cgi"> 名前　　　　 <input type="text" name="name"><br><br> 暗証番号　 <input type="password" name="pass"><br><br><br> <input type="submit" value="入ってみる"><br><br> <br><br><br><br> $name<br>  </form> munba } #ヘッダーサブルーチン sub HTML_header{ print "Content-type: text/html\n\n"; print <<"header"; <title>別荘008</title> <html><body bgcolor="#ccffcc"> header } #フッターサブルーチン sub HTML_footer{ print "</body></html>\n"; footer } # #####↑サブルーチン##### exit;

$name = $ENV{'CONTENT_LENGTH'};

名前：munba
暗証番号：11223344556677

↓

$name で表示　→　30（←バイト数を表示）

これを、read(STDIN, $name, $ENV{'CONTENT_LENGTH'});
に変更。（詳細は「POSTだぜっ！」参照）

しばらく、暗証番号を外して名前入力のみでやってみます。

実行結果例　：　name=munba（デコードして無いので日本語は、まだ文字コード表示）

split関数を使って　=　を取り除いて、$nameと$name_value（フォームから送られたnameの値）の、変数と値を表示するスクリプト。

#!/usr/local/bin/perl

read(STDIN, $name, $ENV{'CONTENT_LENGTH'});

($name,$name_value) = split(/=/,$name);

&HTML_header;

&HTML;

&HTML_footer;

#
#####↑サブルーチン呼び出し#####

#####↓サブルーチン#####
#

#HTMLサブルーチン
sub HTML{
        print <<"munba";
                <form method="post" action="cgibessou_page008.cgi">
                        名前 　　　　 <input type="text" name="name"><br><br>
                        
                        <input type="submit" value="入ってみる"><br><br>
                        <br><br><br><br>
                        \$name → $name<br>
                        \$name_value → $name_value<br>
                        
                </form>
munba
}

#ヘッダーサブルーチン
sub HTML_header{
        print "Content-type: text/html\n\n";
        print <<"header";
                <title>別荘008</title>
                <html><body bgcolor="#ccffcc">
header
}

#フッターサブルーチン
sub HTML_footer{
        print "</body></html>\n";
footer
}

#
#####↑サブルーチン#####

exit;

んで、暗証番号の入力フォームを加えて、HTMLフォームから入力した値を飛ばして
デコード処理をしてから、名前と暗証番号を表示してみます。

下記のスクリプト内に出てくる
　デコード処理　・　require　・　jcode.pl　・　my　・　配列　・　foreach関数　・　その他各関数もろもろの詳細
については、CGIの部屋の勉強部屋を参照してっす。(;´Д`) ｳﾋｬｧ

#!/usr/local/bin/perl

require './jcode.pl';

#####↓サブルーチン呼び出し#####
#

&decode;

&HTML_header;

&HTML;

&HTML_footer;

#
#####↑サブルーチン呼び出し#####

#####↓サブルーチン#####
#

#HTMLサブルーチン
sub HTML{
        print <<"munba";
                <form method="post" action="cgibessou_page008.cgi">
                        名前 　　　　 <input type="text" name="name"><br><br>
                        暗証番号 　 <input type="password" name="pass"><br><br><br>
                        <input type="submit" value="入ってみる"><br><br>
                        <br><br><br><br>
                        
                                        \$buffer ： $buffer<br><br>
                                
                                        \$name ： $name<br>
                                        \$pass ： $pass<br>
                                </form>
munba
}

#フッターサブルーチン
sub HTML_footer{
        print "</body></html>\n";
footer
}

#デコードサブルーチン
sub decode{
        my $method = $ENV{'REQUEST_METHOD'};
        my $buffer_length = $ENV{'CONTENT_LENGTH'};
        
        if($method eq 'POST'){
                #if($buffer_length >= $comment_length){&message("文字数が多すぎますぜっ！");}
                read(STDIN,$buffer,$buffer_length);
        }else{
                $buffer = $ENV{'QUERY_STRING'};
        }
        
        my @data = split(/&/,$buffer);
        
        foreach $line(@data){
                my ($from_form,$value) = split(/=/,$line);
                $value =~ tr/+/ /;
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                
                &jcode'convert(*value,'sjis');
                
                $value =~ s/&/&/g;
                $value =~ s/</</g;
                $value =~ s/>/>/g;
                $value =~ s/<>/<>/g;
                
                $value =~ s/\r\n/<br>/g;
                $value =~ s/\r/<br>/g;
                $value =~ s/\n/<br>/g;
                
                $FORM{$from_form} = $value;
        }
        
        $name = $FORM{name};
        $pass = $FORM{pass};
        }

#
#####↑サブルーチン#####

exit;

注：サブルーチン「sub decode」の実際のソースは、cgibessou_page008.txt　に置き換えて下さい。
　　　　ここでは、HTMLのTEXTAREAタグを使用して表示してるので、実際のスクリプトとは異なります。

できた～～～♪
ってか、jcode.pl 入れるの、すっかり忘れてた。（　　　　　　●　　＿　　●。。。。。。　）

↓自分が見易い様に、自分勝手に整理してみたソースっす。

#!/usr/local/bin/perl

require './jcode.pl';

### ↓サブルーチン呼び出し
#

&decode;

&HTML_header;

&HTML;

&HTML_footer;

#
### ↓サブルーチン
#

########
# HTML #
########
#----------------------------------------------------------------------------------

sub HTML{
        print <<"munba";
                <form method="post" action="cgibessou_page008.cgi">
                        名前 　　　　 <input type="text" name="name"><br><br>
                        暗証番号 　 <input type="password" name="pass"><br><br><br>
                        <input type="submit" value="入ってみる"><br><br>
                        <br><br><br><br>
                        
                                        \$buffer ： $buffer<br><br>
                                
                                        \$name ： $name<br>
                                        \$pass ： $pass<br>
                                </form>
munba
}

#----------------------------------------------------------------------------------
############
# ヘッダー #
############
#---------------------------------------------

sub HTML_header{
        print "Content-type: text/html\n\n";
        print <<"header";
                <title>別荘008</title>
                <html><body bgcolor="#ccffcc">
header
}

#---------------------------------------------
############
# フッター #
############
#--------------------------------

sub HTML_footer{
        print "</body></html>\n";
footer
}

#--------------------------------
############
# デコード #
############
#--------------------------------------------------------------------------------------------

sub decode{
        my $method = $ENV{'REQUEST_METHOD'};
        my $buffer_length = $ENV{'CONTENT_LENGTH'};
        
        if($method eq 'POST'){
                #if($buffer_length >= $comment_length){&message("文字数が多すぎますぜっ！");}
                read(STDIN,$buffer,$buffer_length);
        }else{
                $buffer = $ENV{'QUERY_STRING'};
        }
        
        my @data = split(/&/,$buffer);
        
        foreach $line(@data){
                my ($from_form,$value) = split(/=/,$line);
                $value =~ tr/+/ /;
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                
                &jcode'convert(*value,'sjis');
                
                $value =~ s/&/&/g;
                $value =~ s/</</g;
                $value =~ s/>/>/g;
                $value =~ s/<>/<>/g;
                
                $value =~ s/\r\n/<br>/g;
                $value =~ s/\r/<br>/g;
                $value =~ s/\n/<br>/g;
                
                $FORM{$from_form} = $value;
        }
        
        $name = $FORM{name};
        $pass = $FORM{pass};
                
}

#--------------------------------------------------------------------------------------------
########
# 終了 #
########
#----

exit;

注：サブルーチン「sub decode」の実際のソースは、cgibessou_page008.txt　のスクリプトに置き換えて下さい。
　　　　ここでは、HTMLのTEXTAREAタグを使用して表示してるので、実際のスクリプトとは異なります。

とても忘れている事が多くて、頭の悪さを感じる今日この頃でした。ъ（ﾟｰﾟ）おっけー♪
次は、文字制限でもやってみます。ε=ε=┏( ∩＿∩）┛

戻る