#!/usr/bin/perl #初回平成15年1月28日(土) #平成15年1月30日(木)改訂 # 平成15年2月1日(土)バージョン #カードの値は0〜77迄のどれか三枚。 $end = 2; for(0 .. $end){ $new = int(rand(78 - $_)); foreach(sort{$a <=> $b} @card){ if( $new >= $_ ) #ここらへんはthanks to もじもじ。 { $new++ ;} } @card =(@card,$new); $rev = rand; if( $rev < 0.5){ #逆位置か正位置かを極める。 @arr[$_] = "n"; $html[$_] = sprintf("%02d",$new)."n.html"; #htmlを設定しておわり。 }else{ $html[$_] = sprintf("%02d",$new)."r.html"; #htmlを設定しておわり。 } } #あとはページを書くだけ。 print < タロット占いのぺえじ

タロット占いのぺえじ

  あんまり難しいことは考えないで、願いごとを念じてください。でもって下にある三枚からこれと思ったカードをひく。おつげはキーワードだけだから、その解釈はあなたの心の奥にあるもうひとりの神さまに聞いてみる。一生懸命思い出すとだんだんと思いあたることがでてきます。すぐにわからなくてもメモっておくと数日たってからわかったりしますね。

  1. 「一枚目のタロット」
    一枚目のカード
  2. 「二枚目のタロット」
    二枚目のカード
  3. 「三枚目のタロット」
    三枚目のカード

  ま、気楽にやってみてください。

[Home] [目次]
END # あくせす日付記録。 open LOG, ">>tarot.log"; $time = localtime; print LOG $time,"\n"; close LOG;