ぜろちゃんねるプラス質問スレ 2

232 ：0ch+開発担当 ◆0chp.sx.ik ：2014/05/18(日) 13:40:20.79 ID:lMhWdD150

>>231
  my $rnd = hex(substr($ctx->hexdigest, 0, 8));
  # くじを引く
  my @kuji = qw(大吉 中吉 小吉 吉 末吉 凶 大凶);
  my $result = $kuji[$rnd%@kuji];
  # コマンド部分を結果に書き換える
  $name =~ s|!omikuji|</b>【$result】<b>|g;
の部分を
  # 1くじを引く
  my $rnd1 = hex(substr($ctx->hexdigest, 0, 8));
  my @kuji1 = qw(大吉 中吉 小吉 吉 末吉 凶 大凶);
  my $result1 = $kuji1[$rnd1%@kuji1];
  # 2くじを引く
  my $rnd2 = hex(substr($ctx->hexdigest, 1, 8));
  my @kuji2 = qw(A B C D E);
  my $result2 = $kuji2[$rnd2%@kuji2];
  # コマンド部分を結果に書き換える
  $name =~ s|!omikuji|</b>【$result1 $result2】<b>|g;
のように書き換えてください。