▼スレッド
│
└◇398:町表示 [masaki] 02/22 14:38

　└◇399:Re:町表示 [moon] 02/22 15:53
　　└◇400:Re[2]:町表示 [masaki] 02/22 17:39<-last

また初歩的な質問で申し訳がないのですが、
foreach $line (@lstlines) {
　　　　　　　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$ptw) = split(/<>/,$line);
　　　　　　　　if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $hp = $php; $myjb = $pjb }
　　　　　　　　else {
if($ptw eq 1){$mark='城'}
elsif($ptw eq 2){$mark='町'}
elsif($ptw eq 3){$mark='山'}
elsif($ptw eq 4){$mark='海'}
elsif($ptw eq 5){$mark='砂'}
else{$mark='平'}
print qq|<option value="$pid">$pid：$mark:$pnm($pjb)\n| }
　　　　}
↑これでは、0000::質屋としか表示されません。。
なぜでしょうか？（いつも初歩的な質問ですみません（；；）

> また初歩的な質問で申し訳がないのですが、
> foreach $line (@lstlines) {
> 　　　　　　　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$ptw) = split(/<>/,$line);
> 　　　　　　　　if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $hp = $php; $myjb = $pjb }
> 　　　　　　　　else {
> if($ptw eq 1){$mark='城'}
> elsif($ptw eq 2){$mark='町'}
> elsif($ptw eq 3){$mark='山'}
> elsif($ptw eq 4){$mark='海'}
> elsif($ptw eq 5){$mark='砂'}
> else{$mark='平'}
> print qq|<option value="$pid">$pid：$mark:$pnm($pjb)\n| }
> 　　　　}
> ↑これでは、0000::質屋としか表示されません。。
> なぜでしょうか？（いつも初歩的な質問ですみません（；；）

($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$ptw)
これがちゃんとユーザフラグの並びに対応していないと駄目です。
本来は、$phpの次のフラグは$pxpなので$ptwには$pxpが代入されているはずです。

($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,他のフラグ1,〜,他のフラグX,$ptw)
というように書き直せば大丈夫のはず。

ありがとうございます！
勉強になりました（＾＾