|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 31 Jan 2002 20:01:19
To : Aleksey Kotov
Subject : Re: Как из списка @list удалить скаляр $num
--------------------------------------------------------------------------------
Aleksey Kotov wrote:
> Долгие лета, Andrey :
>
> AT> Есть, скажем,
> AT> @list_in = (1001,1002,1003,1004,1005);
> AT> $num = 1003;
> AT> Hужно на выходе получить
> AT> @list_out = (1001,1002,1004,1005);
> AT> Порядок элементов в @list_out неважен.
>
>
> @list_in = (1001,1002,1003,1004,1005);
> $num=1003;
>
> $rt=join(/=/,@list_in);
>
> print "$rt\n";
> $rt=~s/$num//;
>
> @list_out=split(/=/,$rt);
> print "@list_out\n";
Если встречу такой в перловом коде такой "перл" (извините за
каламбур), удавлю и код и, по возможности, автора.
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
