CGI-Perl 基礎実地編 - 実習14 (画像レスポンス、画像出力、画像表示) - SAK StreetsCGI-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
