|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexandre Gorobets 2:5020/400 30 Jun 2003 19:35:48
To : Ivan
Subject : Re: использование join
--------------------------------------------------------------------------------
"Ivan" <ivan@webaddress.ru> wrote in message
news:bdpkv3$2ps9$1@gavrilo.mtu.ru...
> Hi all !!
> Есть строчка типа print join("','",@ips) - печатает
> все элементы массива @ips в строчку разделяя ,
> Задача такова: можно ли из массива @ips выбирать не все строчки а по
шаблону
> соотв
> не прибегая к циклам ?
> те реализовать вот это в одной строчке :
> $k='';
> foreach my $element(@ips) {
> if ($element=~/^[0-9]{1,20}$/) {
> $k.=",".$element;
> }
> }
$k = join ',' => grep /^[0-9]{1,20}$/, @ips;
- ---
С уважением, Александр
--- ifmail v.2.15dev5
* Origin: Peterlink ISP News System (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
