質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

Q&A

0回答

281閲覧

データベースに接続しようとするとエラーになる

trm

総合スコア117

Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

0グッド

0クリップ

投稿2017/12/23 04:15

#!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;

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問