タグ

Perlに関するwackeyのブックマーク (2)

  • クローラやケータイによってリダイレクト先を変えるCGIの雛形(Perl)

    クローラやケータイによってリダイレクト先を変えるCGIの雛形(Perl) 2010-03-15-1 [Programming] クローラやケータイによっていろいろと内容を切り替えたい場合がある。 例えば、Googlebot が大量に来たときに暫定的に Google のトップページに飛ばしたりとか(嫌がらせ?)。 実現方法はいろいろあるんだけどここでは自分でコピペする用に Perl CGI の雛形を載せておく。 アマゾンを例に飛ばし先(リダイレクト先)を切り替える例。 切り替え部分は随時追加予定。 #!/usr/bin/perl -T use strict; use warnings; print "Content-Type: text/html\n"; my $qs = $ENV{'QUERY_STRING'} || ""; my $ua = $ENV{'HTTP_USER_AGENT'}

    クローラやケータイによってリダイレクト先を変えるCGIの雛形(Perl)
  • WingMemo: ダイナミック・パブリッシング下でPerlのプラグインを使う方法

    ダイナミック・パブリッシングではPerlのプラグインが使えません。が、プラグインを使いたい時もありますよね。そういう場合はプラグインを使う部分のみ静的生成してやればダイナミック下でもプラグインが使えるようになります。 ここでは例としてサイドバーにPerlのプラグインを使う方法を述べてみます。サイドバーを静的別パーツとして書き出し、それを<$MTInclude$>タグで読み込む方法を使います。 1.サイドバー用ファイルの作成 メインインデックスのテンプレートで新しいテンプレートを作成し、サイドバーの中身をそっくりそのままコピペしてsidebar.htmlというファイル名で保存・再構築します。 再構築オプションの「インデックス・テンプレートを再構築するときに、このテンプレートを自動的に再構築する」にチェックを入れて、静的生成パーツになるようにします。「このテンプレートをダイナミック・ページにす

  • 1