如何删除元素

luomorris

$test1 里的数据
[
{num =>1,num =>2},
{num =>3,num =>4},
{num =>5,num =>6},
{num =>7,num =>8}]


for my $test2 (@$test1) {
    如何在这里做数据操作的时候 删除其中的元素
}

例如 第一次 $test2 是 {num =>1,num =>2}

下次一次 @$test1 的数据就是
[
{num =>3,num =>4},
{num =>5,num =>6},
{num =>7,num =>8}]

没有了  {num =>1,num =>2}，但是 $test1原始数据保持不变

luomorris

非常感谢你的回复和启发。回复 2# jason680


   

luomorris

其实我是想做 随机数据

    for my $drop_data (@$drop_rate_table) {
        $count++;
        if ($rate < $drop_data->{accum}) {
                $ret = $drop_data;
                push(@$drop_items, $drop_data);
                $drop_data->{sum} = $lot_sum;
                $drop_data->{cand_pos} = $count;
                $drop_data->{cand_num} = scalar(@$drop_rate_table);
                $dup_cache->{$drop_data->{item}->{id}} = 1;
                last;
        }
    }
外面 还有一层方法控制 循环多少次

$drop_rate_table里面是
[
  {
    'accum' => 21,
    'cand_num' => 6,
    'cand_pos' => 3,
    'item' => {
      'id' => '1',
      'item_id' => '100100',
      'item_num' => '1',
      'item_type' => '9',
      'lot' => '10',
      'refinery_soul' => '30',
      'state' => 1
    },
    'sum' => 76
  },
...很多
]
这些数据
当 满足需求的时候 会吧 $drop_data 放到 @$drop_item里面
并且 $dup_cache 里面 记录被选择过了的ID  
{
'1' => '1',
'2' => '1',
....

}

现在就是想下次循环的时候 上次被记录的数据被剔除


回复 4# substr函数