あるんだよ。さっきあげた5つのサブルーチン、これを変えると他も変わっちゃうよ。他でも使ってるサブルーチンだから。
だから、ここだけ変えたい時には、まずサブルーチンを消して、それに変わるものを書き加えてやらなければならないの。
いちばん簡単な例をあげてみようか。
■L424
&bar('', 'ペット育成ゲームの遊び方');
これを書き換えたいとするね。sub barをいじると他も全部変わっちゃうから、この部分を差し替えます。
■L962のsub barの中味、つまり{ から}の間、
print "<tr align=\"center\" bgcolor=\"$barcolor\"><td $_[0]><font color=$font1>$_[1]</font></td></tr>\n";
こいつをまるっとコピーして、
&bar('', 'ペット育成ゲームの遊び方');
とすりかえます。