CGI-Perl 基礎実地編 - 実習14 (画像レスポンス、画像出力、画像表示) - SAK Streets
CGI-Perl 基礎実地編 - 実習14 (画像レスポンス、画像出力、画像表示) ■test14.cgi ------ ↓ ここから ↓ ------ #!/usr/local/bin/perl #// 準備 $fname = 'test.gif'; $imgtype = 'gif'; $cufld = '.'; $dbfld = '/w_test/'; $path = $ENV{'PATH_INFO'}; #// 動作環境セット if (($i = index($path, $dbfld)) != -1) { $cufld = '..' . substr($path, $i, $i + length($dbfld) - 1); } #// 画像オープン open(IMG, "$cufld/$fname") or die; #// イメージ表示 binmode IMG; binmode
PerlとGDで画像生成
静的な画像表示 まず、CGI で静的な画像ファイルを出力する方法を説明しましょう (画像は 東京発フリー写真素材集 から拝借しました)。 image-1.cgi (実行結果) 1: #!/usr/local/bin/perl 2: 3: # $Id: image-1.cgi,v 1.1 2004/06/25 17:30:47 zxr400 Exp $ 4: 5: my $imgfile = '../../img/tokyo-tower.jpg'; 6: my $imgsize = (stat($imgfile))[7]; 7: 8: print "Content-type: image/jpeg\n"; 9: print "Content-Length: $imgsize\n"; 10: print "\n"; 11: 12: binmode(STDOUT); 13: 14: open(I
写真/画像とメタデータ -- EXIFを利用したJPEGとRDFの連動 (Image-metadata integration with Exif)
写真のようなイメージデータは、一般にはXHTMLのimg要素でウェブページに埋め込んで提供されますが、その場合、イメージの関連情報はXHTMLで別途記述されるだけで、画像ファイルが単独で参照されるとうまく伝わりません。両者をもっと有機的に融合させるため、Exifデータを抽出する、JPEGに直接RDFを埋め込むなど、画像とメタデータを結びつける方法を検討します。 Image data is generally provided as a part of an XHTML document. The description of the image, written in XHTML, is not reachable when the image itself is retrieved directly. In order to integrate the image and its des
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
