|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Aleksey Kotov 2:5020/2138.19 01 Feb 2002 00:24:10
To : Andrey Sapozhnikov
Subject : Как из списка @list удалить скаляр $num
--------------------------------------------------------------------------------
>> @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";
AS> Если встречу такой в перловом коде такой "перл" (извините за
AS> каламбур), удавлю и код и, по возможности, автора.
Это работает? Работает.
Это непонятно? Понятно.
Что еще надо? Записать все вышеизложенное одной строкой?
Может быть это очень медленнно и требует много ресурсов?
Меня это не волнует. Если вас волнует - просто купите себе еще памяти...
--- -=*=-___________________________________________________Aleksey Kotov
* Origin: (2:5020/2138.19)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
