in reply to Re: Re: hash array removal ?
in thread hash array removal ?
when u call sub del he cut the array from index:2 3 cells. you can do splice @{$VAR2->{'TRAPS'}->{'TRAP_LIST'}}, 22, 43; and it will do nothing to the array, because cell 22 to 67 are not exists. you do not need to ask if the cell is defined or not if its defined he will cut him.#!/usr/bin/perl use Data::Dumper; $VAR2 = { 'CSTRING' => 'public', 'SPECIFIC' => '1', 'GENERIC' => '6', 'SSERVER' => 'testmachine', 'DATE' => 'Tue Feb 25 10:13:43 2003', 'OID' => '1.2.3.4.5', 'DEVICE' => '123.124.125.126', 'TRAPS' => { 'TRAP_LIST' => [ { 'TYPE' => 4, 'DATA' => 'foo', 'VARBIND' => '1.2.3.4.5' }, { 'TYPE' => 44, 'DATA' => 'bar', 'VARBIND' => '1.2.3.4.5' }, { 'TYPE' => 444, 'DATA' => 'bar', 'VARBIND' => '1.2.3.4.5' }, { 'TYPE' => 4444, 'DATA' => 'bar', 'VARBIND' => '1.2.3.4.5' } ] }, 'PORT' => '161' }; print Dumper $VAR2 ; del($VAR2); print Dumper $VAR2 ; sub del{ splice @{$VAR2->{'TRAPS'}->{'TRAP_LIST'}}, 2, 3; }
|
|---|