#!/usr/bin/perl
#このファイルはs-jis&CR+LF形式ファイルなので
#Linux上で使うときは
#nkf --unix test.txt > test.pl
#とでもしてunix用に変換して
#使って下され（ ´∀｀ ）b
use DBI;
print"Content-type: text/html\n\n";
#↓コレ入れないとブラウザが文字化け起こす可能性あるから必ず入れよう↓#
print"";
print"\n";
#connect("DBI:mysql:データベース名:MySQL鯖のIPアドレス","MySQLユーザー名","パスワード",…);
$db=DBI->connect("DBI:mysql:db124587:192.168.0.45","kururu","kero01547",{RaiseError => 0,PrintError => 1});
if (!$db){
print"接続失敗";
exit;
}
$sth = $db->prepare("select id,name from tbl2");
if (!$sth->execute){
print"sqlが失敗";
exit;
}
while (@rec = $sth->fetchrow_array) {
print"id =".$rec[0]."\n";
print"name =".$rec[1]."\n";
print"
\n";
}
$sth->finish;
$db->disconnect;
print"\n";