|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 01 Feb 2002 20:33:50
To : Aleksey Kotov
Subject : Re: Как из списка @list удалить скаляр $num
--------------------------------------------------------------------------------
Здравствуй, Aleksey Kotov.
AK> >> @list_in = (1001,1002,1003,1004,1005);
AK> >> $num=1003;
AK> >>
AK> >> $rt=join(/=/,@list_in);
AK> >>
AK> >> print "$rt\n";
AK> >> $rt=~s/$num//;
AK> >>
AK> >> @list_out=split(/=/,$rt);
AK> >> print "@list_out\n";
AS>> Если встречу такой в перловом коде такой "перл" (извините за
AS>> каламбур), удавлю и код и, по возможности, автора.
AK> Это работает? Работает.
Hет. Сам догадаешься, каким именно образом? Hет, я не имею в виду лишние
print'ы.
AK> Это непонятно? Понятно.
Hет. То есть если с моим опытом с минуту поразбираться, то понятно. И ошибку
видно. Hо судя по тому, что ты ее туда посадил, это как минимум тебе самому не
шибко понятно.
AK> Что еще надо? Записать все вышеизложенное одной строкой?
А вот решение в одну строку, предложенное Витусом, как раз понятно. И
работает.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
