ビンゴ中西のほげほげ初めてMySQLとPerlの連帯でプログラムが書けました（後編）

初めてMySQLとPerlの連帯でプログラムが書けました（後編）

2007/02/25 (日)02:24:57

<<前編へ

はじめに作って、実行はされるがうんともすんとも言わなかったスクリプトから掲載。

#########################################################
#!/usr/bin/perl -w
use strict;
use DBI;

my $dbh = DBI->connect('DBI:mysql:counterdb:localhost:3306', 'nakanishi', 'nakanishidayo') || die "sine";
my $sth = $dbh->prepare("select count from counter_table")|| die "sine";
$sth->execute || die "sine";
my $count;
while ( $count = $sth->fetchrow_array ){
   print "$count";
   $count++;
}
$sth = $dbh->prepare("update counter_table set count = ?") || die "sine";
$sth->bind_param(1, $count) || die "sine";
$sth->execute;
#########################################################

ついで、参考ページをおもいっきり使わせてもらったバージョン。これでうごきました。

#########################################################
#!/usr/bin/perl 

use strict;
use DBI;

my $dsn = 'DBI:mysql:counterdb:localhost:3306';
my $user = 'nakanishi';
my $password = 'nakanishidayo';

my $dbh = DBI->connect($dsn, $user, $password,
                       {RaiseError => 1, PrintError => 0, AutoCommit => 0 }) || die "$!";
eval { 
   &mainwork();
   $dbh->commit;
   $dbh->disconnect;
};
if ( $@ ){ 
   $dbh->rollback;
   $dbh->disconnect;
} 

exit 0;

#-------------------------- 
sub mainwork { 
  my $sql = "select count from counter_table";

  my $sth = $dbh->prepare($sql);
  $sth->execute;

  while ( my $arr_ref = $sth->fetchrow_arrayref ){ 
    my ($count) = @$arr_ref;
    print "$count\n";
    $count++;
    my $sql = "update counter_table set count = ?";
    my $sth = $dbh->prepare($sql);
    $sth->bind_param(1, $count);
    my $rows = $sth->execute;

    # 正常時は、ここで 1行だけ更新されるものとする。
    if ( $rows != 1 ){ 
      die "更新行数が異常!";
    } 
  } 
} 
#########################################################

実行されるたび　１ずつ増える。ただそれだけです・・・

追記：
純粋に以下のようにすると動いた。

########################################
#!/usr/bin/perl -w
use strict;
use DBI;

my $dbh = DBI->connect('DBI:mysql:counterdb:localhost:3306', 'nakanishi', 'nakanishidayo') || die "sine";
my $sth = $dbh->prepare("select count from counter_table")|| die "sine";
$sth->execute || die "sine";
my @recode;
my ($count);
while ( @recode = $sth->fetchrow_array ){
   $count = $recode[0];
   print "$count";
   $count++;
}
$sth = $dbh->prepare("update counter_table set count = ?") || die "sine";
$sth->bind_param(1, $count) || die "sine";
$sth->execute;
########################################

でも直に$recode[0]++;　とインクリメントしちゃうとわけわからん結果に。 $recode[0]はインクリメントされず　0 になるっぽい。
あー　わけわかんねー

データベース| トラックバック：0 コメント：0

≪Apache中級者像 | ホーム| 初めてMySQLとPerlの連帯でプログラムが書けました（前編）≫

コメントを投稿する

トラックバック

この記事のトラックバックURL

この記事にトラックバックする(FC2ブログユーザー)

ブログ検索

プロフィール

ビンゴ中西

大阪工業大学情報科学部情報システム学科卒業　学士（情報学）

Systems Engineering 修行中

日	月	火	水	木	金	土
-	-	-	-	-	1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31	-	-	-	-	-	-

日	月	火	水	木	金	土
-	-	-	-	-	1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31	-	-	-	-	-	-

日	月	火	水	木	金	土
-	-	-	-	-	1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31	-	-	-	-	-	-

日	月	火	水	木	金	土
-	-	-	-	-	1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31	-	-	-	-	-	-