> データファイルやスキルを変更するのではなく、職業ごとのデータファイルを作成したほうが簡単だと思います。
> 例えば以下のようにすれば良いと思います。
> 　　【ファイル名】
> 　　　　魔法使い用： mjewel_wizard.dat
> 　　　　召喚士用： mjewel_summoner.dat
> 　　　　その他の職業用： mjewel.dat
> 　　【ソースコード】
> 　　　　@mjlines = &opendat($mjeweldat);
> 　　　　　　↓
> 　　　　# 職業とファイル名の対応を定義する
> 　　　　my %file = (
> 　　　　　　'魔法使い' => 'mjewel_wizard.dat',
> 　　　　　　'召喚士' => 'mjewel_summoner.dat',
> 　　　　);
> 　　　　# 使用するファイル名を求める
> 　　　　my $mjeweldat = exists $file{$jb} ? $file{$jb} : 'mjewel.dat';
> 　　　　# データを読み込む
> 　　　　@mjlines = &opendat($mjeweldat);

お返事ありがとうございます。
なるほど・・これなら私にもできそうです＾＾
このようにしてやってみます。
ありがとうございました。

▼関連発言
│
└◆1667:回復表示 [rien] 02/10 20:58
　└◆1668:Re:回復表示 [moon] 02/11 00:18
　　└◆1669:Re[2]:回復表示 [moon] 02/11 00:22
　　　└◆1670:Re[3]:回復表示 [rien] 02/11 09:03
　　　　└◆1671:Re[4]:回復表示 [moon] 02/11 16:37
　　　　　└◆1672:Re[5]:回復表示 [rien] 02/11 17:11<-last