▼スレッド
│
└◇393:Re[5]:関係ないこと [masaki] 02/20 18:05

　└◇394:Re[6]:関係ないこと [moon] 02/20 21:08
　　└◇395:Re[7]:関係ないこと [masaki] 02/20 21:43<-last

$rarestsというのは、LiやSwのことでいいのでしょうか？（＾＾；
よくわからないので、確認の意味も含めて（あと、おかしいところがあるので（＾＾；）
if(open(FILE,'<count/star.dat')){ # ファイルを読み込みモードで開く
　　　　$count = <FILE>; # カウント数を読み込む
　　　　close(FILE);
　　　　$count++; # カウントアップ
　　　　if($count>=20){ # 20個以上になったか？
push (@msg,"あなたは20個目の星を見つけました。");
##########20個以上になったときに実行する処理#############
if(open(RARE,'rare/rare.dat')){
$rare = <RARE>;
$rarests = Li;
push(@items,"$rare△$rarests");
close(RARE);
}
　　　　$count = 0; # 20個以上になったら処理後にクリア
　　　　}
　　　　if(open(FILE,'>count/star.dat')){ # 書き込みモードで開く
　　　　print FILE $count; # カウント数を書き込む
　　　　close(FILE);
　　　　}
　　　　}
こんな感じになっています（＾＾；
$rarestsがよくわからないので、適当に（ぉぃ
アイテムが
アイテム<>00010101Fd<>
だとすると、そのまま
アイテム<>00010101Fd<>
がアイテムに追加されてしまいます（＾＾；
なぜでしょうか？

> $rarestsがよくわからないので、適当に（ぉぃ
> アイテムが
> アイテム<>00010101Fd<>
> だとすると、そのまま
> アイテム<>00010101Fd<>
> がアイテムに追加されてしまいます（＾＾；
> なぜでしょうか？

$rareitem,$rarestsは$itemや$stsのレア版として書いたのですが分からなかったですか・・・。
($rareitem,$rarests) = split(/<>/,$rare);が必要です。

もちろん$rarests = Li;は要りませんし、"$rare△$rarests"は"$rareitem△$rarests"です。

できました（；；
ありがとうございました〜！！！