День добрый, про лазил в инете, по пробовал по всякому, но не получается у меня выдрать одним регулярным выражением, все числа из такой строки 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)) все числа, без скобок и полигона, вот что последние испробовал, но оно не очень, вообще не тоmy $digit = '[+-]?\d+\.?\d*\s[+-]?\d+\.?\d*\,'; if ($i =~ /(\w+\(\()($digit{1,})/) { print "1 $1\n"; # Результат '1' print "2 $2\n"; # '2' print "3 $3\n"; # '3' print "все совпадение $+\n"; # '2' print "1,2 $&\n"; # '1 два 2' print "все до совпадения $`\n"; # 'Один ' print "все после совпадения $'\n"; # ' и три 3' print "обозначает последнее совпадение $+\n"; } Вот такое выдаёт: 1 POLYGON(( 2 8136707.36 6414194.03, 3 все совпадение 8136707.36 6414194.03, 1,2 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)) обозначает последнее совпадение 8136707.36 6414194.03, Пробовал по разному if ($i =~ /(\w+\(\()(?=$digit)/) Ошибки нет, но второе значение пусто. if ($i =~ /(\w+\(\()(?$digit)/) То такая ошибка Sequence (?[...) not recognized in regex; marked by <-- HERE in m/(\w+\(\()(?[ <-- HERE +-]?\d+\.?\d*\s[+-]?\d+\.?\d*\,)/ at ./get_bounds.pl line 41. if ($i =~ /(\w+\(\()(?$digit+)/) То такая ошибка Sequence (?[...) not recognized in regex; marked by <-- HERE in m/(\w+\(\()(?[ <-- HERE +-]?\d+\.?\d*\s[+-]?\d+\.?\d*\,+)/ at ./get_bounds.pl line 41. В общем я так сказать исчерпался по красивому енто сделать. $digit{1,} - не могу ни как указать, что он такой шаблон искал столько раз сколько нужно. Помоги те плиз разобраться.
|