»[Back]

WriteType:Imageサンプル(Perl用)

このページは拡張子cgiにimgでログの取得をしています。

use URI::Escape qw(uri_escape);
use CGI;
my $q = new CGI;
my $W3Aurl = "http://example.com/mogplus/";
my $W3Aqry = "?mode=img&guid=on&ref=".uri_escape($q->referer())."&path=".uri_escape($ENV{'REQUEST_URI'});
print '<img src="'.$W3Aurl.$W3Aqry.'" alt="" border="0" >';

設置メリット

補足1imgタグについて

!DOCTYPEによってはimgタグの最後を/>に変更する。
※XHTMLなど