Throw a dice and use the number from the dice as index value. Use rand to avoid actually throwing a dice.

Or did you mean to remove a special element that can somehow be identified? If so, tell us how to identify the unwanted element. Also look up grep in the documentation.

Alexander

Perhaps grep? Show what you've tried and you're more likely to get (more useful) help.

my %hash;
my @array = (...);       # whatever

@hash{@array} = undef;   # RTFM to find what this does

delete $hash{'element_value'};
[download]

Perl monks is not a code writing service but an a collective self-education project, to that end, show us what you have tried to do and you will gain more from the resulting comments.

All of the monks who have responded to you are trying to help you, even if it seems a little harsh, however posting a working solution would not advance your understanding, whereas finding the solution yourself, and learning how to find the solution yourself will allow you to develop as a programmer (pun intended)

So

• What have you tried?
• what went wrong?

#!/usr/bin/perl

@myarray=(1,2,3,4,5,6,7);
print "@myarray\n";

@myarray = grep { $_ != 3 && $_ != 5 } @myarray;
print "@myarray\n";
[download]

I hope the following approach is helpful for you:

• You want to access an element from the array, therefore you need an index.
• Therefore your first step would be to search the element (and by that its index) in the array
• Now you have the index and can delete the element easily :-)

Rata

You want to access an element from the array, therefore you need an index.

Not quite. Consider:

my @data = (1,2,3,4,5,6,7,8,9,10);
my ($element) = grep {m/4/} @data; # Get the first element containing 
+the digit 4
[download]

True laziness is hard work

Since you didn't provide much detail (or code), I'm making some assumptions on what you're trying to do. The example code below will "remove an element from an array without knowing its index" provided that you know what that element's value is. It may not be elegant or efficient, but it will do what you're wanting.

use strict;

my @data = (1,2,3,4,5,6,7,8,9,10);
my (@temp) = (@data);  # copy array into a temporary array
undef @data;           # wipeout initial array

foreach my $item (@temp) {
  if ($item !~ m/4/) {    # if the element's value is not 4
    push @data, ($item);  # copy it back into the array
  }                       # otherwise do nothing
}
[download]

That is a little more succinct as:

my @data = (1,2,3,4,5,6,7,8,9,10);

@data = grep {! m/4/} @data; # Remove elements containing the digit 4
[download]

True laziness is hard work

This would be as succinct, more accurate, and a bit faster:

@data = grep $_ ne '4', @data; # Remove elements equal to '4'
[download]

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP an inspiration; A true Folk's Guy

if ($item !~ m/4/) {
  ...
  }
[download]

"If the scalar  $item after stringization does not have a '4' digit anywhere in it, then do ..." would be a better description. E.g., if it's not 4, 44, 3.14159, etc.

I need to remove an element from an array without knowing its index. How can I do that?