[2]の検索結果

－

A [Perl]DBI経由でMySQLに接続して、SELECT文でデータを取得するサンプルプログラム

PerlのプログラムからDBI経由でMySQLに接続し、SELECT文でデータを取得する処理のサンプルプログラムです。

あらかじめphpMyAdminを使用してMySQLにテータベース「testdb」を作成し、以下のSQLを実行しテーブル「users」を作成、3件のレコードを登録しておきます。

CREATE TABLE `users` (
  `userid` varchar(100) COLLATE utf8_bin NOT NULL,
  `password` varchar(250) COLLATE utf8_bin NOT NULL,
  `status` int(11) NOT NULL,
  `auth` int(11) NOT NULL,
  `username` varchar(250) COLLATE utf8_bin NOT NULL,
  `address` varchar(250) COLLATE utf8_bin NOT NULL,
  `mailaddr` varchar(100) COLLATE utf8_bin NOT NULL,
  `hpurl` varchar(250) COLLATE utf8_bin NOT NULL,
  `widgets` text COLLATE utf8_bin NOT NULL,
  `createdate` datetime NOT NULL,
  `lastupdate` datetime NOT NULL,
  PRIMARY KEY (`userid`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;

insert into `users` (`userid`,`password`,`status`,`auth`,
 `username`,`address`,`mailaddr`,`hpurl`,`widgets`,
 `createdate`,`lastupdate`)
  values('admin','1234','1','0','webmaster','',
  webmaster100@59log.com','http://59log.com/','',now(),now());
insert into `users` (`userid`,`password`,`status`,`auth`,
 `username`,`address`,`mailaddr`,`hpurl`,`widgets`,
 `createdate`,`lastupdate`)
  values('test1','5678','1','1','user 1','',
  'test1@59log.com','http://59log.com/','',now(),now());
insert into `users` (`userid`,`password`,`status`,`auth`,
 `username`,`address`,`mailaddr`,`hpurl`,`widgets`,
 `createdate`,`lastupdate`)
  values('test2','abcd','1','1','user 2','',
  'test2@59log.com','http://59log.com/','',now(),now());

以下のPerlプログラムでは、テーブル「users」からステータスが1のレコードを全て取得、一旦配列に格納してから標準出力に出力しています。

検索条件の設定にはプレースホルダを使用し、DB処理でエラーが発生した場合は、例外処理に飛んでエラーの内容が出力されるように、RaiseErrorに1を設定しています。

--- mysql_select.pl ---

#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $data_source = "DBI:mysql:testdb"; # 接続先はtestdb
my $username = "test"; # データベースへのアクセス権限を持つユーザーを指定
my $password = "abcd"; # そのパスワード

my $status = 1;
my @recs = ();
eval {
    my $dbh = DBI->connect($data_source, $username, $password,
                          {RaiseError => 1, PrintError => 0});
    my $sql  = "select * from users where status = ?";
    my $sth = $dbh->prepare($sql);
    $sth->execute($status);
    while (my @rec = $sth->fetchrow_array) {
        push @recs, [@rec];
    }
    $sth->finish;
    $dbh->disconnect;
};
if ($@) {
    print "Error : $@\n";
}

foreach my $rec (@recs) {
    print join(",", @{$rec}), "\n";
}

[2152] Posted by kagahiro at 2010/07/26 09:49:13
0 point | Link (5) | Trackback (0) | Comment (0)

－

A 今年の世間一般での出来事

334 名前：水先案名無い人：2010/06/13(日) 18:23:16 ID:E0UidQnw0

ちなみに今年の世間一般での出来事

一月　第二次アフィブログ戦争羊水腐るらき☆すた初詣
二月　蘇民祭　せんとくん毒餃子　東芝DOGEZA
三月　チベット武藤散歩　土浦のゲーオタ通り魔　amazon本名バレ　
四月　エクストリーム聖火リレー　江東区女性粉砕アカシヤショック秋葉原ケツ出し女逮捕　小清水いいとも
五月　加藤の乱
六月　ラサト氏解放　雷句　予告.in 1円ダイエットコーラ　
七月　ぱしへろブログ閉鎖クニチカット
八月　ワシ育
九月　福田辞任　LHC　大麻王 AYA STYLE　ぼっさん引退　あひる暴挙　9.11放屁テロ２臭忌　ROM人
十月　三浦カズ　蒟蒻畑騒動　株価　すりおろし殺人　俺たちの太郎（笑）サイゼリア返金詐欺　静岡ミスコン裸外人皇居突入
十一月　筑死メシウマ　死体汁　小室　昇龍拳　余命１ヶ月のAV女優
十二月　プリキュア規制

年間通して　ガセリーノ　ジンバブエ

[2145] Posted by 名無しさん at 2010/07/25 00:24:42
0 point | Link (1) | Trackback (0) | Comment (0)

－

A AKB48のCDジャケットがエロすぎると話題に

アイドルグループ「AKB48」の新曲CDジャケットがあまりにエロすぎて「風俗みたいだ」「もうただのキャバ嬢」「もういっそ裸」「アダルトビデオのジャケットみたい」などとネットで話題になっている。中には「清純派じゃなかったのか」というコメントもあり、一部の世間知らずなファンはショックを受けているようだ。

エロすぎると話題になっているのは、2010年8月18日発売予定のニューシングル「ヘビーローテーション」のCDジャケット。「AKB48」の中でも特に人気の高い大島優子さん、前田敦子さん、篠田麻里子さんの3人が、ピンク×水玉のコルセットに網タイツ、カラフルなブラジャー、セクシーな紫色のキャミソールといった下着姿でジャケットを飾っている。

『AKB48』がエロすぎる下着姿を披露！　CDジャケット「まるで風俗」との声も

おそらく、事務所社長との愛人騒動や元メンバーのAV出演で、すでに「清純派アイドル」ではないことはバレバレなので、本来の持ち味を生かした直球勝負に出ているのでしょう。

【特典生写真付き】ヘビーローテーション＜Type-A＞
キングレコードアーチスト：AKB48 価格：1,408円評価：★★★★★