Leser: 1
![]() |
![]() |
4 Einträge, 1 Seite |
1
2
3
4
5
6
7
my $reduced_entries = [];
my $i=0;
for my $entry (@$entries) {
push @$reduced_entries, $entry unless (grep $_ == $i, @remove);
$i++;
}
$entries = $reduced_entries;
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problemsplice @array,$_,1 for reverse @remove;
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem![]() |
![]() |
4 Einträge, 1 Seite |