#!/usr/local/bin/perl
#                                                                                                    
#                                                                                                    
#                                                                                                    
# ネットサーフレスキュー[Ｗｅｂ裏技]　仕様
# アクセス毎に違うものをＨＴＭＬに貼り付けるスクリプト
# (c)www.rescue.ne.jp   change.pl
#

  $file="./change";

# ここに貼り付ける内容を入れる（ここでは５種類）

  $word_0= "<img src=\"./images/cm1.gif\" border=0>";
  $word_1= "<img src=\"./images/cm2.gif\" border=0>";
  $word_2= "<img src=\"./images/cm3.gif\" border=0>";
  $word_3= "<img src=\"./images/cm4.gif\" border=0>";
  $word_4= "<img src=\"./images/cm5.gif\" border=0>";

  open(DATA,"$file") || die "error";
  while(<DATA>){ $count=$_; }
  close(DATA);

# （ここでは５種類）

  print $count==0 ? $word_0:
        $count==1 ? $word_1:
        $count==2 ? $word_2:
        $count==3 ? $word_3:
        $count==4 ? $word_4:"<h1>Ｗｅｂ裏技</h1><br>","<br>\n";

# （ここでは５種類）

  if ($count eq "") { $count=0; }
  $count++; if ($count == 5) { $count=0; }

  open(DATA,">$file") || die "error";
  print DATA "$count";
  close(DATA);
