|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Aleksey Kotov 2:5020/2138.19 31 Jan 2002 17:47:39
To : Andrey Titov
Subject : Как из списка @list удалить скаляр $num
--------------------------------------------------------------------------------
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";
--- -=*=-___________________________________________________Aleksey Kotov
* Origin: (2:5020/2138.19)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
