Всем привет!
Появился такой вопрос. Например есть массив @numbers который содержит числа от 1 до 10, как показано ниже:

Код

#!/usr/bin/perl -w use strict; use warnings; my @numbers = (1..10);

Как можно из этого массива удалить, ну скажем, только 5 элемент?
При этом элемент должен удалиться полностью а не изменять своё значение на undef. Другими словами после удаления 5 элемента, массив должен уменьшиться на 1 элемент, а индексы элементов которые были больше 5, например $numbers[6], $numbers[7] и т.д. должны уменьшить свой индекс на 1.
Аналогичного результата можно добиться с помощью pop и shift. Но при этом удаляется один элемент только в конце или начале. Уменьшение значения переменной $#numbers удаляет только в конце.

Можно конечно организовать цикл и поочерёдно присваивать элементы одго массива другому, а когда дело дойдёт до нужного элемента просто воспользоваться оператором next. Но мне кажется что это не самый лучший вариант.

Что по этому поводу думаете вы?
Заранее спасибо. ;)

Это сообщение отредактировал(а) korob2001 - 14.1.2004, 06:04

Код

#!/usr/bin/perl -w use strict; use warnings; my @numbers = (1..10); my $n = 5; my $offset = 1; splice @numbers, $n-1, $offset; print join ",", @numbers;

Большое спасибо. Всё работает.