お久しぶりです。風の旅人（？）ストロベリージャムです。
本家の方で質問があった複数アイテムファイルを〜ですが最近自作の街移動システムを導入した為月様のを参考に簡単な物を自作してみたのですが# Sub Adding Item #で上手くファイルを開く事が出来ないのです。。改造したとこは

# Sub Admin #のアイテム補充を以下のように修正
print qq|<input type=radio name=mode value=add_item>アイテム補充 <select name=item>\n|;
print qq|<option value="1itm.dat">1itm.dat</option>\n|;
print qq|<option value="2itm.dat">2itm.dat</option>\n|;
print qq|</select><br>\n|;

# Sub Add Item # # Sub Adding Item #を以下の様に変更しました。
# Sub Add Item #
sub add_item {
　　　　if ($Fm{'pass'} ne $pass) { &error('パスワードが違います') }
　　　　@bitlines = &opendat($bitdat);
　　　　@itmlines = &opendat($Fm{'item'});
　　　　&table_top("アイテムの補充$add",'1');
　　　　print qq|プレイ用アイテム一覧：<br><textarea rows=15 cols=50 name=bg>\n|;
　　　　foreach $item (@itmlines) {
　　　　print qq|$item|;
　　　　}
　　　　print qq|</textarea><br>\n|;
　　　　print qq|ストックアイテム一覧：<br><textarea rows=15 cols=50>\n|;
　　　　foreach $item (@bitlines) {
　　　　print qq|$item|;
　　　　}
　　　　print qq|</textarea><br>\n|;
　　　　&table_bottom('adding_item');
}

# Sub Adding Item #
sub adding_item {
　　　　if ($Fm{'pass'} ne $pass) { &error('パスワードが違います') }
　　　　@itmlines = &opendat($Fm{'item'});
　　　　$bg = $Fm{'bg'};
　　　　$bg =~ s/&lt;/</g;
　　　　$bg =~ s/&gt;/>/g;
　　　　@bag = split(/<br>/,$bg);
　　　　foreach $item (@bag) {
　　　　if ($item) { push (@items,"$item\n") }
　　　　}
　　　　&writedat($Fm{'item'},@items);
　　　　$add = "<br><br>アイテムの補充を行いました";
　　　　&add_item;
}

# Sub Add Item #では選択したファイルを開けるのですが、アイテムを編集し# Sub Adding Item #に飛ぶとCan't Openと出てしまいます。開けないファイル名が出ないので$Fm{'item'}の変数受け渡しが出来ていないのかな？と思ったのですがどうにもこうにも上手くいかなくて。。。
レティシア様にも同じ質問をしたのですが月様なら原因がわかるかな？と思い質問させて頂きました。
もしお時間がありましたらご教授お願い致します。

▼関連発言
│
└◆820:複数アイテムファイルをufs2.cgiで編集 [ストロベリージャム] 10/13 21:58
　└◆821:Re:複数アイテムファイルをufs2.cgiで編集 [moon] 10/14 08:51
　　└◆822:Re[2]:複数アイテムファイルをufs2.cgiで編集 [moon] 10/14 09:10
　　　└◆823:Re[3]:複数アイテムファイルをufs2.cgiで編集 [ストロベリージャム] 10/14 10:42<-last