Re: Array element deletion

You could use the splice function:

splice @a, 0, 1;
#          |  |
#          |  +-- length
#          +----- offset
#
[download]

Type perldoc -f splice on the command-line to get help on the splice function.

To delete an element based on the value...

for (0..$#a) {
  if ($a[$_] eq 'a') {
    splice @a, $_, 1;
    last; # exit the for loop because only want to delete
          # the first match
  }
}
[download]

If you want to remove all occurance of an element, it's actually easier:

@a = map { /a/ ? () : $_ } @a;
[download]

Comment on Re: Array element deletion Select or Download Code

Replies are listed 'Best First'.
Re: Re: Array element deletion by diotalevi (Canon) on May 04, 2004 at 14:34 UTC
Why didn't you say that map with grep? I mean, that's what it is there for. Map's empty list is normally only important as a refinement on grep.	[reply]
Re: Re: Array element deletion by revdiablo (Prior) on May 04, 2004 at 18:33 UTC
As diotalevi mentions, that map should really be a grep: `@a = grep !/a/, @a;`	[reply] [d/l]
Re: Re: Array element deletion by bart (Canon) on May 04, 2004 at 16:21 UTC
`splice`?!? Why not just `shift`? `shift @a;` [download] Of course, that doesn't work if you have to find and remove an array element. Then, indeed, splice or grep are the way to go.	[reply] [d/l]