如何刪除元素

luomorris

$test1 里的數(shù)據(jù)
[
{num =>1,num =>2},
{num =>3,num =>4},
{num =>5,num =>6},
{num =>7,num =>8}]


for my $test2 (@$test1) {
    如何在這里做數(shù)據(jù)操作的時(shí)候 刪除其中的元素
}

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

下次一次 @$test1 的數(shù)據(jù)就是
[
{num =>3,num =>4},
{num =>5,num =>6},
{num =>7,num =>8}]

沒(méi)有了  {num =>1,num =>2}，但是 $test1原始數(shù)據(jù)保持不變

jason680

回復(fù) 1# luomorris

>> ...沒(méi)有了  {num =>1,num =>2}，但是 $test1原始數(shù)據(jù)保持不變

$ 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

非常感謝你的回復(fù)和啟發(fā)。回復(fù) 2# jason680


   

substr函數(shù)

回復(fù) 1# luomorris

沒(méi)見(jiàn)過(guò)，有點(diǎn)怪
LZ，我怎么覺(jué)得這個(gè)貌似X-Y問(wèn)題
LZ，為什么你要?jiǎng)h除元素？
LZ，你本來(lái)想干什么？

luomorris

其實(shí)我是想做 隨機(jī)數(shù)據(jù)

    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;
        }
    }
外面 還有一層方法控制 循環(huán)多少次

$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
  },
...很多
]
這些數(shù)據(jù)
當(dāng) 滿足需求的時(shí)候 會(huì)吧 $drop_data 放到 @$drop_item里面
并且 $dup_cache 里面 記錄被選擇過(guò)了的ID  
{
'1' => '1',
'2' => '1',
....

}

現(xiàn)在就是想下次循環(huán)的時(shí)候 上次被記錄的數(shù)據(jù)被剔除


回復(fù) 4# substr函數(shù)


   

substr函數(shù)

LZ，
X-Y Problem

你試圖做X，并想到了用Y方案。所以你去問(wèn)別人Y，但根本不提X。于是，你可以會(huì)錯(cuò)過(guò)本來(lái)可能有更好更適合的方案，除非你告訴大家X是什么。

LZ，原始的問(wèn)題X是怎么一回事。
這里牛人很多，我覺(jué)得LZ可以告訴大家X是什么。