>>899

先程の3個所を removeInventory() に換えて、以下の改訂された sub を導入すれば行けそう。

sub removeInventory {
my $r_inventorys = shift;
my $arrayIndex = shift;
my $itemIndex = $$r_inventorys[$arrayIndex]->{'index'};
my $limit;
print "arrayIndex: $arrayIndex count: $limit \n";

splice(@$r_inventorys, $arrayIndex, 1);
$limit = scalar(@$r_inventorys);
for (my $i = 0; $i < $limit; $i++) {
if ($itemIndex < $$r_inventorys[$i]->{'index'}) {
$$r_inventorys[$i]->{'index'}--;
}
}

my $dumper = new Dumpvalue;
$dumper->dumpValues($r_inventorys);

}