▼スレッド
│
└◇1715:Re[13]:アイテム消失 [moon] 05/05 23:43

　└◇1716:Re[14]:アイテム消失 [rien] 05/06 00:04

>
> > 表示内容としては動作に問題があるようには見えませんので、今度は「push(@msg, '(1) items=' . scalar(@items) . ', bg=' . $bg);」で試してみてください。
> > 見方としてはsplititemからuseroutの間で表示に変化がある部分に注目してください。
>
> splititemからuseroutの間で
> 4つくらい追加してみたのですが
> どれも同じ表示でした。
> >>(1) items=3, bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> (1) items=3, bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> (1) items=3, bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> (1) items=3, bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> (1) items=3, bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
> (1) items=3, bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
>
> 異常はないということでしょうか・・・？
> 何度もすみません・・。

少なくともuseroutの直前までは問題ないようです。
ですので、useroutの中および以降に原因があるのだと思います。
今度は以下の処理をuseroutの直前に1回と直後以降にいくつか追加して試してみてください。
　　if(open(FILE, '<', "$usrdir$id.dat")){my @data = <FILE>; close(FILE); push(@msg, 'bg=' . (split(/<>/, $data[0]))[19]);}else{push(@msg, 'error');}

> 少なくともuseroutの直前までは問題ないようです。
> ですので、useroutの中および以降に原因があるのだと思います。
> 今度は以下の処理をuseroutの直前に1回と直後以降にいくつか追加して試してみてください。
> 　　if(open(FILE, '<', "$usrdir$id.dat")){my @data = <FILE>; close(FILE); push(@msg, 'bg=' . (split(/<>/, $data[0]))[19]);}else{push(@msg, 'error');}

userout直前直後と
それ以降のSub Fight内に２つ追加しました。
表示は全て同じになりました。
bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd
bg=リュート△00010100Mi,アップルグミ△00100100Fd,ピーチグミ△00300200Fd