画像

Perl で、画像のサムネイルを作成してブラウザから表示させる方法

以下のサンプルファイルを image.cgi と名前を付けて保存、アクセス権を chmod +x image.cgi とかしてブラウザから https://yourname.com/image.cgi とかにアクセスすればよい。注意点としては、このスクリプトは画像しか表示できないことである。これと一緒に HTML ファイルを表示しようと思っても、HTTP プロトコルの仕様上不可能である。なぜかというと HTTP プロトコルを通して画像を表示する場合は、すでにこのスクリプトが HTTP ヘッダとして Content-type: image/jpeg を最初に出力してブラウザが受け取っているからで、このスクリプトの中で同時に（画像を表示した後に） HTML 文書を表示させようとて Content-type: text/html を出力（print "Content-type: text/html\n\n）してもブラウザは受け付けてくれないのである。


#!/usr/bin/perl

use GD;

Requirements for Mobile Phones (English)

I would like to propose the unique requirements for mobile phones. The following items are significant considerations under mobile site development, especially in i-mode phones.

UserAgent type that is, a Browser Name of CGI environments which is sent by a mobile phone to a web server.
Range of IP addresses in each mobile operator, which is required to judge whether a user is using a mobile phone or a PC in order to support both of them in the web site. In Japanese mobile phone operators, they are using their specific proxy servers, which are accompanying with the specific range of IP addresses.
Screen Size of each mobile phone, especially the size of width, which would be found in a CGI environment UserAgent in the latest phones
Image Format such as JPEG, PNG and GIF supported by each mobile phone
Maximum Size of Receiving Bytes per a page
Difference of Handling Colors in each mobile phone
Difference of Smilies (Picture Icons) both in each mobile phone and operator
Name Convention of an E-mail Address in each operator (Japanese i-mode e-mail system violates RFC).
Available Character Set in each operator (Shift-JIS, UTF-8 in Japan)
Available Character Types in each operator (such as ZENKAKU, HANKAKU in Japan)
Available Input Method in each operator (Access-key concept in CHTML)
Support of Native Functions of a mobile phone (i.e. switching a browser screen to an e-mail application with 'mailto:' in CHTML at a single screen of a mobile phone, launching Java application, and directly calling to someone with 'tel:' in CHTML, etc)
Difference in between Official Sites and Unofficial Sites (The acquiring information is different)
Session Management because we cannot use cookie in i-mode phones

Perl で、JavaScript と連動してサーバにアクセスログを残す方法

ウェブページへのアクセスログを記録する方法は、いろいろな方法があると思う。もっとも簡単なのは Apache などのウェブサーバが自動的に記録するログをチェックすることで、これには何の手間もいらない。しかし、レンタルサーバなどでログが自由に扱えない場合はどうしたらいいのだろう？

そのひとつが、画像としてリンクされている Perl などの CGI を呼び出す方法だ。利用者に知られずこっそりとアクセスログを取るには 1x1 ピクセルの画像をそのウェブページの背景と共に表示してしまえば、そのウェブページのソースをチェックされない限り、ほとんどの場合は気づかれずにすむだろう。

そんなわけで、以下のように JavaScript と対応する Perl スクリプトで、アクセスログを記録する仕組みを作ってみた。ログの形式は Apache に準拠する（たぶん）。

Perl で、角丸画像を作成する。

オンラインで角丸画像を作成することができます。画像をアップロードすると、サーバ側で角丸画像が生成されてブラウザに表示されます。利用できるフォーマットは、JPEG、PNG、BMP です。

角丸み度の半径（ピクセル）	：
角丸のアンチエイリアス	：するしない
角丸の部分の背景色	：
角丸する画像ファイル	：

Perl で、バイナリデータを MySQL に登録する

バイナリデータはアスキーコードのシングルクォート「'」を含んでいる可能性があり、これが SQL文 (MySQL) のリテラルを表すためにエスケープする必要が出てくる。以下のように prepare → execute というように2行に分ければ execute の中で prepare の ? を埋め込んでくれるからシングルクォートの問題は考えなくてよくなる。

使用するモジュール


use DBI;
# 要 DBD::MySQL


#!/usr/bin/perl

use DBI;

$TABLE_NAME = 'テーブル名';
$DB = DBI->connect(...);

my $sth = $DB->prepare(qq|INSERT INTO $TABLE_NAME (
                                               `id`,
                                               `mimetype`,
                                               `object`,
                                               `created`,
                                               `updated`
                                              )
                                              VALUES (?, ?, ?, ?, ?)|
                   );

$sth->execute(
          $id,
          $miemetype,
          $object,
          $NOW,
          $NOW
         );

$DB->disconnect();

1;

Perl で、JPEG の画像を扱う方法

グラフィックライブラリである GD を使用する。GD は PNG をサポート JPEG は必須だと思われるがその場合には (CPANの GD ではなくライブラリの) GD 自体、jpeg6b というライブラリが必要である。ない場合はインストールが必要である。ウェブでの JPEG 画像の表示は、以下のサンプルを参考に、宿題として考えてみて欲しい。

使用するモジュール


use GD;


#!/usr/bin/perl

use GD;
open (OLD, "original.jpg") || die "cannot open mayon.jpg¥n";
$oldImage = newFromJpeg GD::Image(¥*OLD) || "Cannot make old image object¥n";

@bound = $oldImage->getBounds();
print "original width: $bound[0] original height: $bound[1] ¥n";
$newImage = new GD::Image(40, 40) || die "cannot make new image object¥n";
$newImage->copyResized($oldImage, 0, 0, 0, 0, 40, 40, $bound[0], $bound[1]);
open NEW, ">nail.jpg";
binmode NEW;
print NEW $newImage->jpeg;
close OLD;
close NEW;

1;

画像を購読