#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw//;

=pod

=head1 FRAGE VON KERSTIN

    Is es in Perl möglich, in einem dynamischen Array ein bestimmtes element zu löschen?
    Die Stelle an der das Element ist, steht nicht fest.

=cut

my @array = List::Util::shuffle ('Zitrone', 'Apfel', 'Birne', 'Kiwi', 'Pflaume', 'Banane');
# Durch shuffle weiß ich nicht, an welcher Stelle Kiwi ist...
print "Vorher:\n";
print "'$_'\n" for @array;

#
# Möglichkeit 1 mit Grep und zwei Arrays:
#

print "Entferne 'Kiwi' ...\n";

my @ohnekiwi = grep {$_ ne 'Kiwi'} @array;

print "Nachher 1:\n";
print "'$_'\n" for @ohnekiwi;

#
# Möglichkeit 2 mit  splice:
#
my $kiwiindex = -1;
for (0..$#array) { $kiwiindex = $_ if $array[$_] eq 'Kiwi' }

if ($kiwiindex >= 0) {
    splice @array, $kiwiindex, 1;
}
else {
    print "'Kiwi' nicht im Array gefunden\n";
}

print "Nachher 1:\n";
print "'$_'\n" for @array;