日 | 月 | 火 | 水 | 木 | 金 | 土 |
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 |
文字サイズ変更:
トップページ > Perlについて
●Perlについて●
2022-11-18 23:06:58Perl:DBI no.01
DBIとは
DBIは、Perlのモジュールでデータベースにアクセスするためのものです。
DBIは、Perl用データベース独立インターフェースのことです。
データベースにアクセスしたら、情報の登録、抽出、上書き、削除などが行えます。
では、細かく説明したいと思います。
** DBIでの接続(connect) **
DBIを、読み込みます。
「use DBI;」と書きます。
それから、DBIを使ってID、PASSWORDを設定して接続を行います。
my $data_source = "dbi:mysql:database=user_db;host=Localhost;port=3306";
my $username = "username";
my $password = "password";
my $dbh = DBI->connect($data_source,$username,$password,{mysql_enable_utf8 => 1}) or die $DBI::errstr;
$dbhとは、データベースハンドルのことです。
$data_sourceは、データベースに接続する設定をします。
接続のためのデータベース名、ホスト名、ポート番号、プロトコルなどを設定します。
$usernameは、データベースへの接続で使用するユーザー IDです。
$passwordは、データベースへの接続で使用するユーザー ID のパスワードです。
他に、オプションを加えていきます。
mysqlであれば
mysql_enable_utf8 => 1
と書き加えることができます。
そして、「die $DBI::errstr」でエラーを捕捉します。
一般に、データベースの接続は、短ければ短いほどいいとされています。
** DBIでの切断(disconnect) **
データベ-スへのアクセスは、データの抽出や加工を加えたあと、切断する必要があります。
$dbh->disconnect;
** DBIでのデータの抽出(SELECT) **
データベースに接続したら、データを抽出します。
それは主にSQL文を発行します。
SQL文とは、ここでは「SELECT」で始まる文のことです。
SQL文には、Oracle、DB2、PostgreSQL、MySQLなど何種類か存在します。
ここではMySQLで説明したいと思います。
my $sth = $dbh->prepare(qq{ SELECT * FROM blog WHERE ca_nm = '$category_name' });
$sth->excute;
my %row;
my $i = 0;
while (my $ary_ref = $sth->fetchrow_arrayref){
($row{"blogid_$i"},$row{"ca_nm_$i"},$row{"title_$i"},$row{"kizi_$i"}) = @$ary_ref;
$i++;
}
$sth->finish;
SELECT文は、以下のように発行します。
SELECT カラム名 FROM テーブル名 WHILE 抽出条件;
「*」のアスタリスクは、すべてのカラムを抽出します。
$sthはステートメントハンドルの事です。
WHERE句の条件で、カラムが文字列型の場合は’’(シングルクォーテーション)で囲います。
数値型の場合は要りません。
「execute」は、実行する、という意味です。
SQL文の実行後、「$sth->fetchrow_arrayref」で、データを抽出していきます。
この場合は、「ブログID」、「カテゴリ名」、「ブログタイトル」、「ブログ記事」を抽出しています。
他に、登録(INSERT)、上書き(UPDATE)、削除(DELETE)など、抽出(SELECT)を加えた
4種類を覚えればかなり使えるようになると思います。
※編集上、全角にしている部分があります。
※コピペする場合は、気をつけてくださいね。
出典「IBM Perl でのデータベース接続」
出典「DBI->connect 時に使う鉄板オプションを教えて!」
Print
Twitter(test)
short URL
いいね:77 back to the TOP |
Image::Magickを使うには
Image::Magickについて書きたいと思います。
ブラウザからアップロードされた画像を、Perl モジュール Image::Magick を使って CGI プログラム内で加工する方法の紹介です。
Image::Magickとは、ImageMagickという画像操作を行うものをPerlで扱う為の外部モジュールです。
具体的には、useして使います。
use Image::Magick;
* 画像のアップロードフォーム *
画像をアップロードする際に使用するフォームを紹介します。
ENCTYPE を「multipart/form-data」にする点を忘れないでください。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>ファイルアップロード</title>
</head>
<body>
<form method="post" action="image_resize.cgi" ENCTYPE="multipart/form-data">
画像ファイル選択: <input type="file" name="img">
<input type="submit" value="アップロード">
</form>
</body>
</html>
画像変換をするCGI
画像変換をするプログラムは、CGI モジュール と Image::Magick モジュールを使い加工を行います。
Image::Magickは自サーバーの場合は、インストールする必要があります。
レンタルサーバーの場合は、ほぼインストールしてあると思います。
「use Image::Magick」で、エラーが出ないようなら、インストールしてあると思います。
[Image::Magic の使い方]
・設定パラメータは仕上がりを見ながら試行錯誤して設定する必要があります。
・Image::Magick のエラーは、CGI 内で起こると Internal Server Error を引き起こしてしまいますので、eval でトラップしながら処理を進めます。
その他、CGI でファイルを受け取るときの一般的な留意点は以下の通りです。
・ファイルサイズをチェックする(任意)
・ファイル拡張子で画像かどうかを事前チェック
・保存ディレクトリが重複しないように留意
#!/usr/bin/perlーー
use strict;
use Image::Magick;
use CGI;
binmode(STDOUT, ':utf8');
my $cgi = new CGI;
my %in = &parse_form($cgi);
# アップロードファイル取得
my $upfile = $in{'img'};
if($upfile ne '' || $upfile ne undef ){
# ファイル名と拡張子を取得
($fname, $ext) = $upfile =~ /([^:/]+).(w+)$/ ? ($1, $2) : &error("アップファイル名が不正です", 'kanri');
# 受付可能な拡張子(正規表現)
@ext_ok = ("gif", "jpeg", "jpg", "png");
unless (grep {$ext =~ /^$_$/i} @ext_ok){ #どれにも合致しなければ
&error("許可されていない拡張子($ext)です。", 'kanri');
}
# CGIオブジェクトを作成
$image = Image::Magick->new;
eval{$ret1 = $image->Read(file=>$upfile)};
# 画像の幅、高さを取得する
($width, $height) = $image->Get('width', 'height');
$width = $width - 100;
$height = $height - 100;
# サイズを変更
$image->Scale(width=>$width, height=>$height);
my $fname_min = "$img_dir$fname.$ext";
# 画像の書き込み
eval{$ret2 = $image->Write($fname_min)};
}
sub parse_form {
my $cgi = shift;
my %in;
foreach ( $cgi->param ) {
my $val = $cgi->param($_);
# 無害化
if ($_ ne 'img') {
$val =~ s/[
]//g;
$val =~ s/[
]/<br>/g;
}
$in{$_} = $val;
}
return %in;
}
上のCGIモジュールは、縦幅、横幅を-100したサイズに縮小して、サーバーにアップロードするモジュールです。
Image::Magick自体は、セピア調にしたり、文字を画像の中に入れたりと、様々できます。
出典「ミヤビッチの穴 Image::Magick の使い方」
Print
Twitter(test)
short URL
いいね:3 back to the TOP |