- ベストアンサー
DBを用いたCGI認証スクリプト(perl、mysql)
sakyo-tの回答
別に悪くないと思いますけど、上を見ればきりが無いですし。 何点かだけ・・・ DBにもよると思いますが、メールアドレスがDBになかった場合に SELECTの実行結果をエラーで返すDBもあるので、 データに存在するかどうかを調べるときはCOUNT()関数を 使った方がいいと思います。 SELECT文でトランザクションを開始してないのにCommitする 必要は無いと思います。 フォームから取得したデータをエスケープしないで SQLに突っ込むのは危険です。quote()関数なりエスケープ なりを調べてください。 パスワードをDBに平文で入れるのもよくないのでは?? IDの重要性にもよりますが・・・ せめてCryptやMD5を調べてみては? ぱっとみて思いつくことだけを述べてみました。 参考までに
関連するQ&A
- perlからMySQL5に接続できません
WindowsでperlからMySQLに接続できません。 perlは以下のようなものです。 結果は「1」と表示されるので、MySQLへの接続ができていないのだと思います。 考えられる原因がわかる方、アドバイスをお願いします。 #!/Perl/bin/perl use DBI; print "Content-type: text/html\; charset=shift_jis\n\n"; print "1"; my($dbh, $sth); $dbh = DBI->connect("DBI:mysql:database=データベース名;host=127.0.0.1", "root", "rootのパスワード",{ RaiseError => 1, AutoCommit => 0 }); print "2"; $sth = $dbh->prepare("select * from テーブル名;"); 以下略 WindowsXP SP2 Apache2.2.4 ActivePerl5.8.8 MySQL5.0
- ベストアンサー
- MySQL
- perlでdb(mysql)に接続
perlでdb(mysql)に接続し、取得したデータを 表示させるというようなことをしたいのですが、うまく いきません。 ファイル名test.cgi mysqlのバージョンは 5.0.45で 記述は以下です。 #!/usr/bin/perl use DBI; my $dbh = DBI->connect("DBI:mysql:database, "userid", "password"); my $sth = $dbh->prepare('SELECT * FROM tablename'); $sth->execute; print "Content-Type: text/plain\n\n"; print "\n"; while(my @row = $sth->fetchrow_array) { print "$row[0]:$row[1]\n"; } $sth->finish(); $dbh->disconnect(); exit; ブラウザで確認すると何も表示されず、ログとして 以下のエラーが確認できます。 DBD::mysql::st execute failed: Table 'database.tablename' doesn't exist at test.cgi line 8. DBD::mysql::st fetchrow_array failed: fetch() without execute() at test.cgi line 11. my $sth = $dbh->prepare('SELECT * FROM tablename'); で指定したテーブルは存在しておりますし、SQL文の記述も 問題ないと思われます。 また、ファイルのパーミッションは705(755でも同様の結果)です。 perl初心者のため、どこが問題なのか検討がつきません。 ご助言いただきたく存じます。 よろしくお願いいたします!
- ベストアンサー
- Perl
- mysqlへの接続でつまづいてまーす
Perlのプログラムでログイン画面を作ろうと思っています。 ブラウザのログインフィールドからデータをとり、mysqlに接続してDBを検索し、照合するデータを見つけたら、合致するかどうか判断させて、エラーもしくはHPへ入ってしまえよ!という感じです。 で、似たようなサンプルソースを見つけていじっているのですが、これが出来ないんですよね~。接続だけなら出来るのに・・・ とりあえずこの中にエラーがないか教えてほしいです(>_<) if($i_id eq "" || $i_pw eq ""){ print "ログイン情報を入力してプリーズ(´д`;)ノ"; }else{ $dbh = DBI->connect($dbn,$user,$pw); $dbh->do("SET NAMES sjis"); $rows = $dbh->selectrow_array("SELECT count(*) from list where id = $i_id"); if($rows == 0){ print "該当するデータはないっすね~(゜*゜)"; }else{ $sth = $dbh->prepare("SELECT * FROM list where id = $i_id"); $sth->execute(); print <<"html"; 検索結果一覧<br><br> <table border="1"> <tr bgcolor="#dddddd"> <td>学籍番号</td> <td>パスワード</td> </tr> html while (@row = $sth->fetchrow_array()){ print <<"html"; <tr> <td>$row[0]</td> <td>$row[1]</td> </tr> html } print "</table>\n"; } ※ちなみにこれは一部です・・・
- 締切済み
- Perl
- perlを使ってレコード件数を取り出してみると、すごい数が・・・。
perlのDBIモジュールを使って、mysqlのレコード件数を表示させてみると、すごい数が表示されました。ソースは以下の通りです。 use DBI; $dbh=DBI->connect("DBI:mysql:データベース名:サーバ名", "ユーザ名", "パスワード") || die $DBI::errstr; if(!$dbh){ print "エラーです。入力を確認してください。"; exit; }else{ #接続成功 # SELECT文発行 $sth=$dbh->prepare("SELECT sei, mei, mail FROM table"); #実行 $sth->execute; $num_rows = $sth->rows; print "該当 $num_rows, 件\n"; # 開放 $sth->finish; # AUTO COMMITがOFFの場合はCOMMITが必要 $dbh->commit; # 切断 $dbh->disconnect; } 実行すると該当 4294967294, 件 とブラウザに表示されました。僕はレンタルサーバを使っているわけですが、僕のデータベースにはレコードは3件しかないのです。これはレンタルサーバのデータベースすべての件数が表示されているのでしょうか? なんだかSQLを実行するのが怖いので、考えられる原因を教えてください。よろしくお願いします。 プログラムを初めてまだ、数ヶ月しか経ってない初心者なので、みなさんの知恵を貸していただけると幸いです。
- ベストアンサー
- MySQL
- perl+mysqlで変数が使えなくて困ってます。
use DBI; $id=1; $nm="gootarou"; $mm="friend"; $user = '***'; $passwd = '***'; $db = 'DBI:mysql:***'; $dbh = DBI->connect($db, $user, $passwd); $sth = $dbh->prepare("INSERT INTO list (id,name,memo) VALUES ($id,$nm,$mm)"); $sth -> execute; $sth -> finish; $dbh -> disconnect; exit; mysqlの勉強を始めたところでいきなり壁にぶちあたってしまいました^^; googleその他で検索かけてみましたが解決に至りませんでしたので 質問させてください。 >$sth = $dbh->prepare("INSERT INTO list (id,name,memo) VALUES ($id,$nm,$mm)"); ↑ここの部分を >$sth = $dbh->prepare("INSERT INTO list (id,name,memo) VALUES ('1','gootarou','friend')"); と直接入力してやれば問題なく登録されるのですが、変数を使うと正常に処理がされません。 数字を変数に代入したものは大丈夫なのですが 英字や二バイト文字を変数に代入したものが問題あるようです。 それぞれのフォームの型はvarchar(100)で設定しています。 ループで一括処理したいのですが変数が使えないことには・・と困ってます。 よろしくお願いします。
- 締切済み
- MySQL
- Perl初心者です。MySQLから取得したデータをXMLで出力させたいです。
以下のようにしましたがXMLのエンコードを euc-jp にするときちんと表示されますが、utf-8 にするとダメです。 助言をお願いします。cgiファイルとDB(MySQL)の文字コードはEUC-JP、Perlのバージョンは5.6です。 #!/usr/local/bin/perl use DBI; use Jcode; $sqlStr = "SELECT * FROM Test"; $x = "Content-type: text/xml; charset =utf-8\n\n"; # utf-8 $x .= "<\?xml version=\"1.0\" encoding=\"utf-8\"\?>\n\n"; # utf-8 $x .= "<ROOT>"; $dbh = DBI->connect ("DBI:mysql: AAA: localhost","BBB","CCC "); $sth = $dbh->prepare("$sqlStr"); $sth->execute; $num_rows = $sth->rows; $num_fields = $sth->{NUM_OF_FIELDS}; for ($i=0; $i<$num_rows; $i++) { $x .= "<ROW>"; @a = $sth->fetchrow_array; for ($n=0; $n<$num_fields; $n++) { $a[$n] =~ s/&/&/g; $a[$n] =~ s/</</g; $a[$n] =~ s/>/>/g; $col = $sth->{NAME}->[$n]; $x .= "<$col>$a[$n]</$col>"; } $x .= "</ROW>"; } $sth->finish; $dbh->disconnect; $x .= "</ROOT>"; Jcode::convert(\$x,'euc','utf8'); # utf-8 print $x; exit;
- ベストアンサー
- Perl
- DBIモジュールと Perl5.8
Perl5.8のエンコードが理解できずに困っております。 MySQLでは、utf8の文字コードのデータがあります。 以下のスクリプトを実行させると、 Wide character in print at C:/usr/local/site/lib/DBI.pm line 1008. となります。 対処方法はあるのでしょうか? use utf8; use strict; use DBI; my $dbh = DBI->connect("dbi:mysql:dbname=test", "root", "", { AutoCommit=>1, PrintError=>1, RaiseError=>1} ); my $fname = "test.txt"; my $sth = $dbh->prepare("select id, namae from test order by id asc;"); $sth->execute(); # 出力ファイルを開く。 open FILE, ">" , $fname or die "Can't open $fname: $!"; # 整形された結果をファイルにダンプする。 my $rows = $sth->dump_results(80, "\n", ",", \*FILE); # 出力ファイルを閉じる。 close FILE or die "Error closing result file: $!\n"; $dbh->disconnect();
- ベストアンサー
- Perl
- SQLが応答しなくなっているのか、CGIが読み込み中のままになってしまいます。
SQLを約1600回実行したら、5秒後にページを再読み込みします。 print "<html><body onload=\"setTimeout('location.reload()',5000)\">"; foreach ... { ... # 約1600回繰り返す @result = select("SQL文"); ... } sub select{ my @result = (); my($dbh, $sth); $dbh = DBI->connect('DBI:mysql:データベース:localhost', "ID", "パスワード") or return 0; $sth = $dbh->prepare("$_[0]"); $sth -> execute() or return 0; $num_rows = $sth->rows; $num_of_fields = $sth->{NUM_OF_FIELDS}; $result[0] = $sth->rows; for ($i=1; $i<=$num_rows; $i++) { @fetchrow_array = $sth->fetchrow_array; $result[$i] = join ',', @fetchrow_array } $sth -> finish(); $dbh -> disconnect(); return @result; } 最初の1,2回は期待通りに動くのですが、 2,3回ほど再読み込みをすると、「読み込み中」のままになってしまいます。 (期待通りに動く場合、1回の読み込みは20秒程度です。) タスクマネージャを見ると、 期待通りに動いているときは、CPU使用率が60%くらいになっていますが、 「読み込み中」のままの時は1%程度になっています。 SQLサーバーから応答がなくなっているのでしょうか? (簡単なSQLにしてみても同じでした。) 原因がわかる方、よろしくお願いします。 WindowsXP SP2 Apache1.3 ActivePerl5.6 MySQL3.23
- ベストアンサー
- CGI
- mysql perl 2回保存される。
perlとmysqlを使っています。 htmlのformタグからえたテキストをCGIに送って データベースに保存しているのですが、送信ボタンを押すと2回データベースに 保存されてしまいます。 同じデータがふたつ保存されるのではなく、 一つ目はすべてNULLのデータが保存され 二つ目にmformの内容が保存されます。 CGIのほうのSQL文はひとつしか書いていません。for文も使っていません。 <-----以下form部分のソースーーーーー> print "<form method=\"POST\" action=\"./CGI/save_DB.cgi\" name=\"saveform_2\"target=\"subwindow\" onSubmit=\"openwin();\">"; print "<div>タイトル:<input type=\"text\" name=\"TITLE\" autocomplete=off value='"; print "$TITLE\'></div>"; print "<input type=\"submit\" value=\"保存\">"; print "</form>"; <-----以下save_DB.cgi SQL実行部分のソースーーーーー> my $TITLE = $cgi->param('TITLE'); my $dbh = DBI->connect("DBI:mysql:host=${db_host};database=${db_name}", $db_user, $db_pass); my $sth = $dbh->prepare("INSERT INTO テーブル名 ( `title`) VALUES ($TITLE); my $rv = $sth->execute(); データベースへの接続などの問題はありません。 ブラウザはクロームですが、IEで試しても同じ現象がでました。 考えられる原因、おもいあたる原因がありましたら、教えてください。 また、原因がわからなくても、回避できそうなやり方があれば教えてください。 よろしくお願いいたします。
- 締切済み
- MySQL
- perlとmysqlの接続について。 mac
いつもお世話になっております。 現在、perlとmysqlの接続について苦戦しています。 私の状況としては Mac osx 10.6.6 使用3ヶ月。 プログラムを独学で勉強し始めて2ヶ月弱。 習熟進度としては 「初めてのperl」ある程度わかる。2週は読んだ。 「すぐわかるオブジェクト指向Perl」1週読んだ。 なんとなくわかる。 という状況です。 昨日より、MySQL(GPL)をダウンロードして挑戦しています ネットに置いてあったソースコードで、 #!/usr/bin/perl use DBI; my $dbh = DBI->connect("DBI:mysql:futomi", "futomi", "password"); my $sth = $dbh->prepare("SELECT * FROM test"); $sth->execute; print "Content-Type: text/plain\n\n"; print "\n"; while(my @row = $sth->fetchrow_array) { print "$row[0]:$row[1]\n"; } $sth->finish(); $dbh->disconnect(); exit; という形でperlからmysqlをつなごうとしているのですが、 install_driver(mysql) failed: Can't locate loadable object for module DBD::mysql in @INC というエラーメッセージと Perhaps a module that DBD::mysql requires hasn't been fully installed というエラーメッセージが表示されます。 cpanからDBD::mysqlもダウンロードし、Makefile.PL・・・コンパイルでよろしいのでしょうか?も終わっており、DBD::mysqlとDBIも@INK上に設置していると思われるのですが、 一向に接続する事ができません。 どのように対処すれば接続する事ができるのでしょうか? ご説明いただければと思います。 また、足りない文章、ソース等がありましたらそれらもあげさせていただきますので、 なにとぞご協力くださいませ。 それでは失礼いたします。
- ベストアンサー
- Perl
お礼
コメント、ありがとうございます。 非常に助かりました。