携帯版AdSens広告をPerl・CGI設置する方法

AdSensをPerlに設置する場合

■plで読み込む場合

１）コードをコピーしてbanner.plなどで保存

２）アップしてパーミッションを変更（ロリポップの場合700）

３）require "./banner.pl";をPerl内に設置

■shtml内に読み込む場合

１）コードをコピーしてbanner.cgiなどで保存

２）アップしてパーミッションを変更（ロリポップの場合700）

３）use行の後にprint "Content-type: text/plain\n\n";を追記

#!/usr/bin/perl

use LWP::UserAgent;
use Time::HiRes qw(gettimeofday);
use URI::Escape;

print "Content-type: text/plain\n\n";

４）shtmlのHTML行内に<!--#include file="./banner.cgi" -->を追記