ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nick Kostirya                        2:5020/400     23 Feb 2004  13:39:03
 To : Pavel Shirshov
 Subject : Re: regexp
 -------------------------------------------------------------------------------- 
 

 
 >
 >  sdfsdk;l 12.233.54.12 fdlgj 234.213.42.21 dslkdsfkerop 21.44.22.11
 > 22.33.211.22
 >
 > Из этой строки надо выдрать все ip адреса, какой конструкцией это можно
 
 сделать
 
 my $str = q(sdfsdk;l 12.233.54.12 fdlgj 234.213.42.21 dslkdsfkerop
 21.44.22.11
 22.33.211.22);
 my @ip = $str =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/g;
 print join "\n", @ip;
 Выведет
 12.233.54.12
 234.213.42.21
 21.44.22.11
 22.33.211.22
 --- ifmail v.2.15dev5.3
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: regexp   Nick Kostirya   23 Feb 2004 13:39:03   Re: regexp   Nick Kostirya   23 Feb 2004 13:40:35   regexp   Renat Araslanow   23 Feb 2004 23:22:43   Re: regexp   Nick Kostirya   24 Feb 2004 12:19:20