#!C:/perl64\bin/perl use strict; use DBI; use utf8; #フォームからデータを受け取り変数へ入れる read(STDIN, $formin, $ENV{'CONTENT_LENGTH'}); $buffer = $ENV{'CONTENT_LENGTH'}; # + 記号を半角スペースに戻す $formin =~ tr/+/ /; #URLエンコードデータをデコード $formin =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; @indata = split (/&/,$formin); #受け取ったデータを&で区切り、配列へ foreach $tmp (@indata) #フォームの要素分(配列分)以下の処理を繰り返す { ($name,$value) = split (/=/,$tmp); # =記号で区切り、名前 と 値 に分ける $forminh{$name} = $value; #区切った名前を付けた連想配列に値を入れる } #既存ファイルを読み込み、配列$sqlに入れる open(IN,"<kokyakusyouhinjouhou/dbID1.txt"); $sql = <IN>; close (IN); #unshift (@aaa,"$forminh{'name'},$forminh{'pass'},$forminh{'simei'},$forminh{'mail'},$forminh{'syouhinmei'},$forminh{'category'},$forminh{'nedan'}\n"); #新しいデータが追記された配列を dbID1.txt に書き出す $sql=$sql+1; open(OUT,">kokyakusyouhinjouhou/dbID1.txt"); print OUT "$sql"; close(OUT); open(IN,"<kokyakusyouhinjouhouhikae/dbID2.txt"); $sql = <IN>; close (IN); #unshift (@bbb,"$forminh{'name'},$forminh{'pass'},$forminh{'simei'},$forminh{'mail'},$form#inh{'syouhinmei'},$forminh{'category'},$forminh{'nedan'}\n"); open(OUT,">kokyakusyouhinjouhouhikae/dbID2.txt"); print OUT "$sql"; close(OUT); # 接続 my $dbh = DBI->connect("dbi:SQLite:dbname=test.db"); #テーブル定義 $dbh->do("create table meibo (dbid,dboid,dbpassword,dbsimei,dbmail,dbmoji,dbnedan,dbq1,dbfile1,dbfile2,dbfile3);"); $dbh->do("insert into meibo (dbid,dboid,dbpassword,dbsimei,dbmail,dbmoji,dbnedan,dbq1,dbf#ile1,dbfile2,dbfile3) values (sql,$forminh{'name'},$forminh{'pass'},$forminh{'simei'},$forminh{'mail'},$forminh{'syouhinmei'},$forminh{'nedan'},$forminh{'q1'},"","","");"); #$forminh{'file1'},$forminh{'file2'},$forminh{'file3'});"); # テーブルの読み出し命令 my $sth = $dbh->prepare("select * from meibo"); $sth->execute; $sth->finish; undef $sth; #切断 $dbh->disconnect; #print "Content-type: text/html; #charset=shift_jis\n\n"; print "Content-type: text/html\n\n"; print <<"HTML"; <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>書籍の情報書き込み</title> </head> <body bgcolor="#000066" text="#000000" link="#0000ee" alink="#0000ee" vlink="#551a8b"> <form action="CGI194b1.html"> <textarea name="mojijouhou" rows="4" cols="40">商品情報をご記入ください。</textarea> <br> <input type="submit" onclick="location.href'C:/WWW/CGI194b1.html'" value="次へ"><input type="reset" value="リセット"> </form> <br> <br> </body> </html> HTML exit;
あなたの回答
tips
プレビュー