FC2ブログ
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
とりあえず MySQLとの連携
main.pl
use strict;
use warnings;
use Data::Dumper;
use Util_DB;

main();

sub main {
  my $db   = Util_DB->new({
                           'dsn'      => 'myapp',
                           'user'     => 'root',
                           'password' => ''
                         });

  $db->main::select_class_a();
  print "----", "\n";
  $db->main::select_class_a('bb');
}
 
sub select_class_a {
  my $dbh  = shift->{'dbh'};
  my $name = shift;
 
  my $sql;
  my $sth;
  if( !defined $name ){
    $sql = q{ 
              SELECT
                *
              FROM
                class_a
            };
    $sth   = $dbh->prepare($sql); 
    $sth->execute();
  }else{
    $sql = q{ 
              SELECT
                *
              FROM
                class_a
              WHERE
                name = ?
            };
    $sth   = $dbh->prepare($sql); 
    $sth->execute($name);
  }


  while(my $row = $sth->fetchrow_hashref()){
    print Dumper $row;
  }
}


Util_DB.pm
use strict;
use warnings;
use DBI;

package Util_DB;

sub new {
  my $self  = shift;
  my $class = ref($self) || $self;

  my $c      = shift;

  my $dbh = DBI->connect(
                         'DBI:mysql:database=' . $c->{'dsn'},
                         $c->{'user'},
                         $c->{'password'},
                         {'PrintError'=>1, 'RaiseError'=>1}
                        );

  return bless {'dbh' => $dbh}, $class;
}

1;

結果:
$VAR1 = {
          'name' => 'aa',
          'id' => '1'
        };
$VAR1 = {
          'name' => 'bb',
          'id' => '2'
        };
$VAR1 = {
          'name' => 'yy',
          'id' => '3'
        };
----
$VAR1 = {
          'name' => 'bb',
          'id' => '2'
        };
※ 参考にしないでください。
スポンサーサイト
コメントを投稿する
Name:
URL:
Comment:

秘密:管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL
この記事にトラックバックする(FC2ブログユーザー)
ブログ検索

プロフィール

ビンゴ中西
Perlが好きである。
プログラミング言語のほとんどは独学。独学の過程で多くのプログラム仲間にも色々教わりました。

FC2カウンター

カレンダー

07 | 2018/08 | 09
- - - 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ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。