https://opennet.dev/openforum/vsluhforumID8/6890.html День добрый, про лазил в инете, по пробовал по всякому, но не получается у меня выдрать одним регулярным выражением, все числа из такой строки<br>POLYGON((8136707.36 6414194.03,8136757.2 6414216.8,8136786.14 6414153.45,8136800.67 6414160.1,8136808.35 6414143.29,8136793.87 6414136.67,8136803.01 6414116.66,8136753.18 6414093.88,8136743.62 6414114.81,8136730.03 6414108.6,8136722.53 6414124.99,8136736.07 6414131.18,8136707.36 6414194.03))<br>все числа, без скобок и полигона, вот что последние испробовал, но оно не очень, вообще не то<br><br>my $digit = '[+-]?\d+\.?\d*\s[+-]?\d+\.?\d*\,';<br>if ($i =~ /(\w+\(\()($digit{1,})/)<br> {<br> print "1 $1\n"; # Результат '1'<br> print "2 $2\n"; # '2'<br> print "3 $3\n"; # '3'<br> print "все совпадение $+\n"; # '2'<br> print "1,2 $&\n"; # '1 два 2'<br> print "все до совпадения $`\n"; # 'Один '<br> print "все после совпадения $'\n"; # ' и три 3'<br> print "обозначает последнее совпадение $+\n";<br> }<br>Вот такое выдаёт:<br>1 PO https://opennet.dev/openforum/vsluhforumID8/6890.html#6 Fri, 25 Jun 2010 05:44:51 GMT Да скорость не нужна совсем.<br>Спасибо за советы. К счастью, данные выдирать не пришлось, другой запрос бд пошёл. За примеры бавшое спасибо, другим как говориться в помощь.<br> https://opennet.dev/openforum/vsluhforumID8/6890.html#5 Thu, 24 Jun 2010 07:13:53 GMT &gt;Поточный парсер быстрее регулярки будет.<br><br>Согласен. Но если данных немного, то смысла ускорять нет. А если много и скорость важна, то лучше вообще писать это на Сях.<br><br>&gt;И понятнее.<br><br>А вот тут можно поспорить.<br><br>&gt;Взять всё между внутренними скобками,<br><br>Это или регексп вида /\(\((.*)\)\)/ или строенная конструкция из index и substr - вряд ли будет способствовать пониманию.<br><br>&gt;split по пробелу, <br>&gt;на каждый элемент split по запятой <br><br>Цикл поисков по простым регекспам, построение (пусть и неявное) промежуточных списков. Не думаю, что сильный выигрыш в скорости получится.<br> https://opennet.dev/openforum/vsluhforumID8/6890.html#4 Thu, 24 Jun 2010 06:29:52 GMT Поточный парсер быстрее регулярки будет. И понятнее.<br><br>Взять всё между внутренними скобками,<br>split по пробелу, <br>на каждый элемент split по запятой <br><br><br><br> https://opennet.dev/openforum/vsluhforumID8/6890.html#3 Thu, 24 Jun 2010 05:02:23 GMT Выдрать все числа из строки? Нет ничего проще:<br><br>$s = ...; # тут наша строка<br>@a = $s =~ m/[-+]?\d+(?:\.\d+)?/g; # а тут уже список чисел<br> https://opennet.dev/openforum/vsluhforumID8/6890.html#2 Thu, 24 Jun 2010 04:33:36 GMT &gt;а чего бы не заменить запятую на пробел и не использовать split <br>&gt;? <br><br>да, самое простое в лоб заюзать сплит<br>только предварительно заменить все нецифровые символы на пробельные, незабыть оставить точку \d\.\d<br> https://opennet.dev/openforum/vsluhforumID8/6890.html#1 Wed, 23 Jun 2010 18:27:14 GMT а чего бы не заменить запятую на пробел и не использовать split ?<br>