Perl
#DB
$DBname = "***";
$TableName = "***";
$DBID = "***";
$DBPW = "***";
&DB($query,"1");#update
sub DB{
my $query = shift @_;
my $updateCheck = shift @_;#¡Ö1¡×¤Ç¤¢¤ì¤Ð¡¢update
my $line;
my @L;
#print "query $query\n";
#DBI ¥â¥¸¥å¡¼¥ë¤ÎÆÉ¤ß¹þ¤ß
use DBI;
# ¥Ç¡¼¥¿¥½¡¼¥¹¤Î»ØÄê
$dsn = "DBI:mysql:$DBname:www:3306";
# ¥Ç¡¼¥¿¥½¡¼¥¹
$dsn = "DBI:mysql:$DBname";
# ¥æ¡¼¥¶Ì¾
$user = $DBID;
# ¥Ñ¥¹¥ï¡¼¥É
$password = $DBPW;
# ¥Ç¡¼¥¿¥Ù¡¼¥¹¤ØÀܳ
$dbh = DBI->connect($dsn, $user, $password,
{ RaiseError => 1, AutoCommit => 0 });
# prepare¤¬À®¸ù¤·¤¿¾ì¹ç¡¢¥¹¥Æ¡¼¥È¥á¥ó¥È¥Ï¥ó¥É¥ë¤¬ÊÖ¤µ¤ì¤Þ¤¹
my $sth = $dbh->prepare(
#"SELECT * FROM ¥Æ¡¼¥Ö¥ë̾"
"$query"
);
# SQLʸ¤Î¼Â¹Ô
$sth->execute;
# ¥Ç¡¼¥¿¤Î¼èÆÀ¤È½ÐÎÏ
if($updateCheck == 0){#Update¤Î¾ì¹ç½ÐÎϤ·¤Ê¤¤
while(@row = $sth->fetchrow_array) {
undef $line;
for($i=0;$i<@row;$i++){
$line .= "$row[$i]\t";
}
push(@L,$line)
}
}
#È¿±Ç¤µ¤ì¤ë¤¿¤á¤Î½èÍý
my $success = 1;
my $result = ($success ? $dbh->commit : $dbh->rollback);
unless ($result) {
die "Can not finish transaction: " . $dbh->errstr;
}
$sth->finish;
$dbh->disconnect;
return @L;
}