delete $array[$i] (gelöst) - #189370 (Allgemeines zu Perl)

rosti

2018-12-11 11:04

User since
2011-03-19
3492 Artikel
BenutzerIn

Nun, wir haben ja tie():

Code (perl): (dl )

use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use strict;
use warnings;
use Tie::Array;
use base qw(Tie::StdArray);

tie my @arr, 'main';
@arr = qw(foo bar baz);
delete $arr[0];

print Dumper \@arr;

sub DELETE{
    my $self = shift;
    my $idx  = shift;
    splice @$self, $idx, 1;
}

Und dann macht auch delete das was es soll ;)

.