2008年10月

useでライブラリを重複呼び出した場合

perl

• 2008.10.24

package abc;use CGI;・・・略package def;use CGI; このようにuseで複数回モジュールを呼び出した場合はどうなるのか？ どうやらPerlは内部でuseしたライブラリ名を記憶していて、同じモジュールをuseしない(2回目のuseは無視)ようになっているので、二カ所（またはそれ以上）で同じモジュールをuseしても、全く問題無い。

続きを読む

DBI & MySQLでカウントする

MySQL perl プログラミング

• 2008.10.21
• DBI, MySQL

$COUNT = $dbh->selectrow_array("SELECT COUNT(*) FROM `テーブル名` WHERE `カラム` = '条件'");

続きを読む

自分が追加した最新のauto_increment番号を取得する

MySQL perl

• 2008.10.03
• DBI, MySQL

$sql = "INSERT INTO `db_01` ( data1, data2 ) VALUES ( $data1, $data2 )"; $sth = $dbh->prepare( "$sql" ); $sth->execute(); $id = $sth->{mysql_insertid}; これで$idに「自分が追加した最新のauto_increment番号」が代入される ただし下記のようにdoでは使えない。 $sql = "INSERT INTO `db_01` ( data1, data2 ) VALUES ( $data1, $data2 )"; $sth […]

続きを読む