[[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; }