Архив форумов ЦИТФорума

[Петрович-2]

Есть файл содержащий информацию:
красный
синий
жёлтый
Мне бы хотелось удалить красный, для этого я использую следующую конструкцию:

open (NEW,">new.txt"); # открываю пустой файл
open (OLD,"colors.txt"); # открываю файл содержащий цвета
@ARRAY_OLD=<OLD>; # помещаю содержание colors.txt в массив
$i="0";
while (<OLD>)
{
if($i ne "0") # если номер строки ( $ARRAY_OLD[$i] ) не "0" (первая строка = красный)
{
print NEW $_; # записать в новый файл
}
$i++;
}
close(OLD); # закрыть деск.
close(NEW); # закрыть деск.
rename("colors.txt","deleted.txt"); # переименовать
rename("new.txt","colors.txt"); # переименовать

Мне кажется, что эта конструкция слишком "большая", нельзя ли сделать по-проще?

[FUKS]

$i="0";
$i не обязательно инициализировать нулём, тем более строковым (хотя можно).

while (<OLD>)
Пардон, при чём тут <OLD>? Он же уже считан в @ARRAY_OLD.

Как попроще:

[Петрович-2]

Большое спасибо!
Про shift не знал.

[Петрович-2]

"shift -
Удаляет первый элемент массива и возвращает его значение. Если массив пустой, то результат - неопределенность. Если аргумент опущен - обрабатывается массив @ARGV в головной программе или @_ в подпрограмме. "
источник: http://www.opennet.ru/docs/RUS/perl-maslov/func.html#125

А если мне нужно удалить четвёртую строку массива, например?

[FUKS]