cgibessou_page012

12．ファイルの読み書き

う～む～？これも、すっかり忘れとる。(^_^；ｱﾊﾊ…
まずは、CGIの部屋に逝ってきま～す！

この項目用に、簡単なスクリプトを別に作成してやってみます。
確か、読み込みとか書き込みとかファイルが無ければ新しく作成して書き込むとか
色々とあった様な気がする。探してくる。ε=ε=┏( ~＿~）┛

ファイルに値を書き込で・・・

open (ファイルハンドル, "> ファイル名");
print ファイルハンドルファイルに送って書き込みたいデーター;
close (ファイルハンドル);

ファイルに書き込まれた値を呼び出して表示する。

open (IN,"kakikommu.txt");
@try_number = <IN>;
close (IN);

print "$try_number[0]\n";
print "$try_number[1]\n";
print "$try_number[2]\n";

#!/usr/local/bin/perl

#               @try_number = ("1","2","3");（とほほさんのページを参照させて頂いた時のスクリプト。）

# ↑ファイルに書き込んで読み込んで表示する際に、スペース入らない
#
# ↓ファイルに書き込んで読み込んで表示する際に、スペース入る

@try_number = ("1\n","2\n","3\n");

###　 > ←上書き書き込み・書き込みファイルが無い場合はファイルを自動生成
#（KAKIKOMI：ファイルハンドル）

open (KAKIKOMI,"> kakikomu.txt");
print KAKIKOMI @try_number;
close (KAKIKOMI);

print "Content-type: text/html\n\n";
print "<html><body>\n";
print "<title></title>\n";

###　 読み込み（とほほさんのページを参照させて頂いてます。）
#（YOMIKOMI：ファイルハンドル）

#               open(YOMIKOMI, "kakikomu.txt");
#               while ($yomikomi = <YOMIKOMI>) { print $yomikomi; }
#               close(YOMIKOMI);

#
###　 ↓と↑は同じ結果（とほほさんのページを参照させて頂いてます。）
#

#               open(YOMIKOMI, "kakikomu.txt");
#               while (<YOMIKOMI>) { print; }
#               close(YOMIKOMI);

#
###　 ↓と↑は同じ結果（とほほさんのページを参照させて頂いてます。）
#

#               open(YOMIKOMI, "kakikomu.txt");
#               while ($_ = <YOMIKOMI>) { print $_; }
#               close(YOMIKOMI);

#
###　 ↓と↑は同じ結果（とほほさんのページを参照させて頂いてます。）
#

#               open(YOMIKOMI, "kakikomu.txt");
#               print while (<YOMIKOMI>);
#               close(YOMIKOMI);

open (IN,"kakikomu.txt");
@try_number = <IN>;
close (IN);

print "$try_number[0]\n";
print "$try_number[1]\n";
print "$try_number[2]\n";

print "</body></html>\n";

exit;

∴　↓こんな感じっす。

#!/usr/local/bin/perl @try_number = ("1","2","3"); open (KAKIKOMI,"> kakikomu.txt"); print KAKIKOMI @try_number; close (KAKIKOMI); print "Content-type: text/html\n\n"; print "<html><body>\n"; print "<title>別荘12</title>\n"; open (IN,"kakikomu.txt"); @try_number = <IN>; close (IN); print "$try_number[0]\n"; print "$try_number[1]\n"; print "$try_number[2]\n"; print "</body></html>\n"; exit;

そんで最終的には、どうしたいかと言うと

1<>ムンバ<>123
2<>munba<>123
3<>ムンバカ<>111

の様に、ログファイルに予め記述しておいて・・・
せっかくだから、これを

フォームから入力　→　ログファイルに送信　→　ログファイルに記述　→　ログファイル呼び出し　→　呼び出した値をページに表示

やってみますかっ！ｗ

えと～？まずは、入力フォームを作る。
と思ったけど、CGI本体で試しに、3名登録してみて
それぞれの・・・できた～っ！┌(*￣0￣)┐ ワーッハッハッハッ・・・・

ま～、字下げとかスクリプト内ではちゃんとできてるんで
テキストエリア内での表示のずれは、ご勘弁っす！（／∇＼）いないいない（（（＼（￣▽￣）／）））ばぁ

#!/usr/local/bin/perl

require './ini.cgi';

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

&decode;

if($FORM{'munba'} eq '')        {&GO;}
if($FORM{'munba'} eq 'go')      {&go_in;}

### ↓サブルーチン
#

############
# 入力画面 #
############
sub GO{
        &HTML_header;
        
        print <<"login";
                <form method = "post" action = "$this_cgi">
                
                番号      <input type = "text"            name = "number" maxlength = 2>  （2文字以内）$bb
                名前      <input type = "text"            name = "name"   maxlength = 8>  （8文字以内）$bb
                暗証番号<input type = "password"    name = "pass"   maxlength = 10> （10文字以内）$bb $b
                
                                <input type = "hidden"          name=  "munba"  value="go">
                                
                <input type = "submit" value = "入ってみる">$bb$bb
login
}

########
# 認証 #
########
sub go_in{
        if              ($number eq "1" && $name eq "ムンバ"   && $pass eq "123")                  {&HTML;
        }elsif  ($number eq "2" && $name eq "munba"    && $pass eq "123")                       {&HTML;
        }elsif  ($number eq "3" && $name eq "むんばか" && $pass eq "munba12345")    {&HTML;
        }else{  &message("番号または名前または暗証番号が違います。"); exit;
        }
}
########
# HTML #
########
sub HTML{
        &HTML_header;
        print <<"munba";
        
                ログイン成功～っ！(≧∇≦)ノ〃わーい♪$bb$bb
                
                \$buffer ： $buffer $bb
                
                \$number ： $number $b
                \$name   ： $name $b
                \$pass   ： $pass $b
                \$buffer_length ： $buffer_length
munba
        &HTML_footer;
}
##################
# メッセージ表示 #
##################
sub message{
        print "Content-type:text/html\n\n";
        print <<message;
                <html>
                <meta http-eruiv = "content-type"content = "text/html;charset = SHIFT_JIS">
                <head><title>$title</title></head>
                <body bgcolor = "$bg_color">
                $aka<center><big>$_[0]</big>$f $b
message
        &HTML_footer;
}
############
# ヘッダー #
############
sub HTML_header{
        print "Content-type: text/html\n\n";
        print <<"header";
                <title>$title</title>
                <html><body bgcolor = "$bg_color">
                <meta http-eruiv = "content-type"content = "text/html;charset = SHIFT_JIS">
header
}
############
# フッター #
############
sub HTML_footer{
        print <<"footer";
                $c <form method = "post" action = "$this_cgi">
                <input type = "submit"  value = "戻る">$c_e
footer
        print "</body></html>\n";
}
############
# デコード #
############
sub decode{
        my $login_buf = 68;
        
        $method = $ENV{'REQUEST_METHOD'};
        $buffer_length = $ENV{'CONTENT_LENGTH'};
        
        if($buffer_length >= $login_buf){&message("番号・名前・暗証番号のいずれかが長すぎます"); exit;}
        
        if($method eq 'POST'){
                read(STDIN,$buffer,$buffer_length);
        }else{
                $buffer = $ENV{'QUERY_STRING'};
        }
         @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;
        }
        $number = $FORM{number};
        $name   = $FORM{name};
        $pass   = $FORM{pass};
        $go     = $FORM{go};
}
exit;

一応、メモ帳にも保存しとくっす。ｗ

cgibessou_page012.txt

今回のCGI別荘は、ここまでで一旦終了します。
目的は、C言語にCGIを組み込めたら組み込もうと思って復習してたら
おもしろくなったきて（いつもの悪い癖っす。ｗ）時間かけてしまったのだった。(´ー`)　(　´ー`　)　(　´　ー　`　)　(　　´　ー　`　　)ﾏｯﾀﾘ

しばらくは、Cの部屋で遊びます。ではまたっ！ε=ε=┏( ∩＿∩）┛

戻る