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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
