無題
まずは、読み書きするCGIファイルを作る
以前に読みだす時のCGIを書いたが、今回はそれにプラスして
書き込む作業を入れる。CGIはいくつもあるとややこしいので
読みだす時も書き込むときも同じCGIファイルを使うこととする。
[Perl]
#!/usr/bin/perl
//POSTでCGIにデータを送られるので、受ける準備
read(STDIN, $post_data, $ENV{'CONTENT_LENGTH'}); −−１
($key,$value) = split(/=/,$post_data); −−２
$value =~ tr/+/ /; −−３
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; −−４
$get_data{"$key"} 
すべて表示
その他の最新記事
記事がありません。
