[パスワード]の検索結果

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

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";
}

B 無料掲示板CGIのダウンロード

B 無料掲示板CGIのダウンロード

掲示板CGIは、ホームページに簡易掲示板を設置するためのシンプルな無料のPerlスクリプト（CGI）です。新規スレッドやコメントの投稿は誰でも可能ですが、スレッドやコメントの削除は管理者のみ可能（管理者パスワードが必要）になっています。高機能掲示板ソフト「59bbs」と比較すると機能は少ないですが、その分カスタマイズは容易になっています。

ライセンスはオープンソースライセンス（GPLv2）ですので無料で自由にカスタマイズして利用できます。

ホームページへの掲示板CGIの追加は、CGIが利用できるサーバーであれば、次のような手順で簡単にできます。

1. bbscgi.cgi の先頭の以下の部分をサーバーなどの利用環境にあわせて変更します。
my $site_title = '掲示板CGI'; # Site title
my $webmaster_email = 'support@59bbs.org'; # Webmaster's E-mail address
my $sendmail_path = '/usr/sbin/sendmail'; # sendmail path
my $admin_password = 'YourPass'; # Admin password
my $data_dir = 'data'; # Data directory
my $line_number = 10; # Number of list lines
my $anonymous = '名無しさん'; # Anonymous


2. 以下のファイルをサーバーにFTPソフトなどを使用して転送（アスキーモード）します。（tmpl、dataはディレクトリごと転送してください。）
bbscgi.cgi
bbscgi.css
tmpl/list.tmpl
tmpl/thread.tmpl
tmpl/new.tmpl
tmpl/delete.tmpl
tmpl/remove.tmpl
data/threadid.data
data/log

3. bbscgi.cgiに実行可能なパーミッション（サーバーによって異なります）を設定します。

掲示板CGIは、比較的シンプルなPerlスクリプトですので以上のように設置は簡単ですが、HTMLやPerlスクリプトの変更が難しいという方向けに有料（税込4,200円）にてデザインのカスタマイズ（スクリプトの変更をともなわないHTMLファイルやスタイルシートの変更）、設置サポートも行います。有料サポートをご希望される場合は、support@59bbs.org 宛にメールにてご連絡ください。

掲示板CGIのデモページ
掲示板CGIのダウンロード

B 無料ブックマークCGIのダウンロード

B 無料ブックマークCGIのダウンロード

ブックマークCGIは、コメント可能な公開ブックマークをホームページに追加することができるPerlスクリプトです。 ブックマークレットを使用してブラウザで開いているWebページを簡単にブックマークできます。ブックーマークの 登録や編集、削除は管理者のみ可能（管理者パスワードが必要）になっています。

オープンソースライセンス（GPL）ですので無料で自由にカスタマイズして利用できます。

ホームページへのブックマークCGIの追加は、次のような手順で簡単にできます。

1.bookmark.cgi の先頭の以下の部分をサーバーなどの利用環境にあわせて変更します。
my $site_title = 'ブックマークCGI'; # Site title
my $site_url = 'http://59log.com/bookmark'; # Site URL
my $webmaster_email = 'webmaster@59log.com'; # Webmaster's E-mail address
my $sendmail_path = '/usr/sbin/sendmail'; # sendmail path
my $admin_name = 'YourName'; # Your name
my $admin_password = 'YourPass'; # Your password
my $data_dir = 'data'; # Data directory
my $line_number = 10; # Number of list lines
my $allow_comment = 1; # Allow comment setting 0:deny 1:allow

2.以下のファイルをサーバーにFTPソフトなどを使用して転送します。
bookmark.cgi
bookmark.css
error.html
tmpl/bookmark.tmpl
tmpl/bookmarklet.tmpl
tmpl/delete.tmpl
tmpl/edit.tmpl
tmpl/list.tmpl
tmpl/remove.tmpl
data/bookmarkid.data
data/log

3.bookmark.cgiに実行可能なパーミッション（サーバーによって異なります）を設定します。

ブックマークCGIは、比較的シンプルなPerlスクリプトですので以上のように設置は簡単ですが、 HTMLやPerlスクリプトの変更が難しいという方向けに有料（税込4,200円）にてデザインのカスタマイズ（スクリプト の変更をともなわないHTMLファイルやスタイルシートの変更）、設置サポートも行います。有料サポートをご希望され る場合は、デモページのフォームまたは webmaster@59log.com 宛にメールにてご連絡ください。

ブックマークCGIのデモページ
ブックマークCGIのダウンロード

A Googleのセキュリティが完全に破られていた？

A Googleのセキュリティが完全に破られていた？

侵入の発端は Microsoft Messenger のメッセージだったと報じられている。中国の Google 社員に送られたメッセージには悪意あるリンクが含まれており、これをクリックした社員のコンピュータへ不正侵入することが可能になったという。侵入者はここから Google 本部の開発者のコンピュータに侵入、開発チームのソフトウエアリポジトリを掌握していたそうだ。

A 「破局でハッピーエンド！」な携帯ゲームが女性に大人気

A 「破局でハッピーエンド！」な携帯ゲームが女性に大人気

気になるゲーム内容は、プレイヤーである主人公が、ゲーム内のイケメン彼氏が残した浮気の証拠を、探偵さながらにつかんでいくというもの。彼氏の部屋や職場などから、長い髪の毛や口紅のついたカップなど、続々と証拠（アイテム）が出てくる。パスワードや暗号を解いてそれらをゲットし、彼氏を追い詰めて破局できればハッピーエンドという、ダークな恋愛シミュレーションゲームだ。

浮気をしたい脳--ヒトが「それ」をがまんできない訳
小学館 著者：山元 大輔 価格：1,260円 評価：★★★★★

• おもしろい！ ★★★★★