アーカイブ - 10月, 2008



2008年 10月 24

package abc;
use CGI;
・・・略
package def;
use CGI;


このようにuseで複数回モジュールを呼び出した場合はどうなるのか?

どうやらPerlは内部でuseしたライブラリ名を記憶していて、同じモジュールをuseしない(2回目のuseは無視)ようになっているので、二カ所(またはそれ以上)で同じモジュールをuseしても、全く問題無い。


Filed under: perl

Trackback Uri






2008年 10月 21

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

Filed under: MySQL,perl,プログラミング

Trackback Uri






2008年 10月 3

$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 = $dbh->do( "$sql" );
$id = $sth->{mysql_insertid};

Filed under: MySQL,perl

Trackback Uri