「雀譜」対応牌譜つき掲示板作成法

「雀譜」対応牌譜つき掲示板作成のために。

《必要なもの》

・「雀譜」（セラヴィーさん制作）
・牌画セット（田中猛彦さんの作った牌画を少しだけコントラストを変え必要画像を足したもの、実際には使用していない横向き牌画も作って入れてあります。もし、使いたい方は自分で定義してお使いください。）
・掲示板用ｃｇｉ
・張り込みの仕方（永亜佐倉さんのｃｇｉ講座）
・永亜佐倉さんのものを参考にしてセラヴィーさんのソフト用に必要なものを足した貼り付け用ＣＧＩ。（下記）貼り付け方は永亜佐倉さんのところにあります。

#定義部分

$g1man = '<img src="../pai/man1.gif">';
$g2man = '<img src="../pai/man2.gif">';
$g3man = '<img src="../pai/man3.gif">';
$g4man = '<img src="../pai/man4.gif">';
$g5man = '<img src="../pai/man5.gif">';
$gred5m = '<img src="../pai/man5red.gif">';
$g6man = '<img src="../pai/man6.gif">';
$g7man = '<img src="../pai/man7.gif">';
$g8man = '<img src="../pai/man8.gif">';
$g9man = '<img src="../pai/man9.gif">';
$g1pin = '<img src="../pai/pin1.gif">';
$g2pin = '<img src="../pai/pin2.gif">';
$g3pin = '<img src="../pai/pin3.gif">';
$g4pin = '<img src="../pai/pin4.gif">';
$gred5p = '<img src="../pai/pin5red.gif">';
$g5pin = '<img src="../pai/pin5.gif">';
$g6pin = '<img src="../pai/pin6.gif">';
$g7pin = '<img src="../pai/pin7.gif">';
$g8pin = '<img src="../pai/pin8.gif">';
$g9pin = '<img src="../pai/pin9.gif">';
$g1sou = '<img src="../pai/sou1.gif">';
$g2sou = '<img src="../pai/sou2.gif">';
$g3sou = '<img src="../pai/sou3.gif">';
$g4sou = '<img src="../pai/sou4.gif">';
$g5sou = '<img src="../pai/sou5.gif">';
$gred5s = '<img src="../pai/sou5red.gif">';
$g6sou = '<img src="../pai/sou6.gif">';
$g7sou = '<img src="../pai/sou7.gif">';
$g8sou = '<img src="../pai/sou8.gif">';
$g9sou = '<img src="../pai/sou9.gif">';
$ton = '<img src="../pai/ton.gif">';
$nan = '<img src="../pai/nan.gif">';
$sha = '<img src="../pai/sha.gif">';
$pei = '<img src="../pai/pei.gif">';
$haku = '<img src="../pai/haku.gif">';
$hatu = '<img src="../pai/hatsu.gif">';
$chun = '<img src="../pai/chun.gif">';
$bird = '<img src="../pai/bird.gif">';
$back = '<img src="../pai/back.gif">';
$kiri = '<img src="../pai/tsumogiri.gif">';
$bu = '<img src="../pai/bu.gif">';
$chie = '<img src="../pai/chie.GIF">';
$pon = '<img src="../pai/pon.GIF">';
$kan = '<img src="../pai/kan.GIF">';
$draw = '<img src="../pai/draw.GIF">';
$haipai = '<img src="../pai/haipai.GIF">';
$last = '<img src="../pai/last.GIF">';
$reach = '<img src="../pai/reach.GIF">';
$sute = '<img src="../pai/sute.GIF">';
$uti = '<img src="../pai/uti.GIF">';
$blank = '<img src="../pai/blank.GIF">';
$ron = '<img src="../pai/ron.GIF">';
$agari = '<img src="../pai/agari.GIF">';

#変換部分
# 98.04.26永亜佐倉
$value =~ s/1man/$g1man/g;
$value =~ s/2man/$g2man/g;
$value =~ s/3man/$g3man/g;
$value =~ s/4man/$g4man/g;
$value =~ s/5man/$g5man/g;
$value =~ s/5man/$g5man/g;
$value =~ s/red5m/$gred5m/g;
$value =~ s/6man/$g6man/g;
$value =~ s/7man/$g7man/g;
$value =~ s/8man/$g8man/g;
$value =~ s/9man/$g9man/g;
$value =~ s/1pin/$g1pin/g;
$value =~ s/2pin/$g2pin/g;
$value =~ s/3pin/$g3pin/g;
$value =~ s/4pin/$g4pin/g;
$value =~ s/5pin/$g5pin/g;
$value =~ s/red5p/$gred5p/g;
$value =~ s/6pin/$g6pin/g;
$value =~ s/7pin/$g7pin/g;
$value =~ s/8pin/$g8pin/g;
$value =~ s/9pin/$g9pin/g;
$value =~ s/1sou/$g1sou/g;
$value =~ s/2sou/$g2sou/g;
$value =~ s/3sou/$g3sou/g;
$value =~ s/4sou/$g4sou/g;
$value =~ s/5sou/$g5sou/g;
$value =~ s/red5s/$gred5s/g;
$value =~ s/6sou/$g6sou/g;
$value =~ s/7sou/$g7sou/g;
$value =~ s/8sou/$g8sou/g;
$value =~ s/9sou/$g9sou/g;
$value =~ s/ton/$ton/g;
$value =~ s/nan/$nan/g;
$value =~ s/sha/$sha/g;
$value =~ s/pei/$pei/g;
$value =~ s/chun/$chun/g;
$value =~ s/haku/$haku/g;
$value =~ s/hatu/$hatu/g;
$value =~ s/bird/$bird/g;
$value =~ s/back/$back/g;
$value =~ s/kiri/$kiri/g;
$value =~ s/bu/$bu/g;
$value =~ s/chie/$chie/g;
$value =~ s/pon/$pon/g;
$value =~ s/kan/$kan/g;
$value =~ s/draw/$draw/g;
$value =~ s/haipai/$haipai/g;
$value =~ s/last/$last/g;
$value =~ s/reach/$reach/g;
$value =~ s/sute/$sute/g;
$value =~ s/uti/$uti/g;
$value =~ s/blank/$blank/g;
$value =~ s/ron/$ron/g;
$value =~ s/agari/$agari/g;