URLジャンプスクリプト

に付いての質問があったので簡単なスクリプトを書いてみた。
jump_url.cgi

#!/usr/bin/perl
$page1 = "http://webmaster.hatena.ne.jp/1054958611";

$page2 = "http://d.hatena.ne.jp/shinchan/";

$jump  = "http://www.hatena.ne.jp";
$query = $ENV{"QUERY_STRING"};

($key,$value)= split(/=/,$query);
if($value == 1) {$jump = $page1;}

elsif($value == 2) {$jump = $page2};
print "location: $jump\n\n";

exit;

テスト用HTML jump_url.html

  

  

  

  

    


    
    page1
     page2
    

     < /p >

  

Plamoマシンのapacheの設定をCGIを許可して再起動。
何度も手直ししてうまくいった。
やっぱりスクリプトは普段から書くようにしないとすぐに忘れてしまう。