ブログで趣味でプログラミングからお料理まで呟いています。よろしくー。(^-^)/


先月  2022年 11月  来月


1 2 3 4 5
6 7 8 9 10 11 12
13 14 1516 17 1819
20 21 22 23 24 25 26
27 28 29 30



文字サイズ変更:
トップページ > Perlについて

●Perlについて●

2022-11-18 23:06:58

Perl: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
2022-11-15 21:39:12

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


PR (i)