如何删除元素

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原始数据保持不变

jason680

回复 1# luomorris

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

$ perl -e '
  my $test1=[1,2,3,4,5];
  my @tmp=@{$test1};
  while(my $t=shift(@tmp)){
     print "\$t=$t,\@tmp=@tmp,\@{\$test1}=@{$test1}\n";
  }
'
$t=1,@tmp=2 3 4 5,@{$test1}=1 2 3 4 5
$t=2,@tmp=3 4 5,@{$test1}=1 2 3 4 5
$t=3,@tmp=4 5,@{$test1}=1 2 3 4 5
$t=4,@tmp=5,@{$test1}=1 2 3 4 5
$t=5,@tmp=,@{$test1}=1 2 3 4 5


Note: shift, unshift, pop, push
   shift <-   (1,2,...,5)  -> pop         # remove/delete
unshift  ->   (1,2,...,5) <- push        # added

luomorris

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


   

substr函数

回复 1# luomorris

没见过，有点怪
LZ，我怎么觉得这个貌似X-Y问题
LZ，为什么你要删除元素？
LZ，你本来想干什么？

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函数


   

substr函数

LZ，
X-Y Problem

你试图做X，并想到了用Y方案。所以你去问别人Y，但根本不提X。于是，你可以会错过本来可能有更好更适合的方案，除非你告诉大家X是什么。

LZ，原始的问题X是怎么一回事。
这里牛人很多，我觉得LZ可以告诉大家X是什么。