> すみません。。。
> やはり表示のところでつまづいているようです。
>
> 覇王がデータとは違うキャラになってしまっていて・・。
> 本来では0002のキャラなのですが
> 9999のキャラになっていたりと・・。
>
> 私の記述がやっぱり間違っているのだと思います。
>
> $pcwn = 1;
> $pcwn++ if($result == -1);
> これをlist_orderの前に記述して・・
> 代入は$pcwnをいれてはいるのですが・・
>
> >>if ($pcwn = 1 > $champ ){ $pnm = $nm; $pid = $id; $pig = $ig; $champ = $pcwn if($result == -1); }
> ここも間違っていそうです・・。
>
> お手数おかけしますがよろしくお願いします

新しく追加したパラメータ（$pcwn）は連勝数を意味します。
ですので、sub sagaで$pcwn = 1;などのような処理を行うのではなく読み込むサブルーチン（get_champ）を呼び出すだけで良いです。
あと、sub find_bestの部分は条件自体が間違っており「if($id eq $pid && $nm eq $pnm && $ps eq $pps){$champ_nm = $pnm; 〜略〜 $champ = $pcwn;}」のようにする必要があります。

▼関連発言
│
└◆1608:アイテムコマンドについて [rien] 01/04 13:57
　└◆1609:Re:アイテムコマンドについて [moon] 01/04 14:28
　　└◆1610:Re[2]:アイテムコマンドについて [moon] 01/04 14:35
　　　└◆1611:Re[3]:アイテムコマンドについて [rien] 01/04 15:32
　　　　└◆1612:Re[4]:アイテムコマンドについて [moon] 01/04 17:17
　　　　　└◆1613:Re[5]:アイテムコマンドについて [rien] 01/04 20:02
　　　　　　└◆1614:Re[6]:アイテムコマンドについて [moon] 01/04 21:01
　　　　　　　└◆1615:Re[7]:アイテムコマンドについて [rien] 01/04 21:35
　　　　　　　　└◆1616:Re[8]:アイテムコマンドについて [moon] 01/04 22:27
　　　　　　　　　└◆1617:Re[9]:アイテムコマンドについて [rien] 01/05 00:57
　　　　　　　　　　└◆1618:Re[10]:アイテムコマンドについ... [moon] 01/05 08:09
　　　　　　　　　　　└◆1619:Re[11]:アイテムコマンドにつ... [rien] 01/05 16:36<-last