|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ivan Frolcov 2:5020/175.2 17 Nov 2003 17:00:17 To : Konstantin Stupnik Subject : Re: Пара вопросов по регекспам -------------------------------------------------------------------------------- Mon Nov 17 2003 14:29, Konstantin Stupnik wrote to Maxim Yemelyanov: MY>> 2. MY>> Extracting all numbers from a string MY>> @nums = m/(\d+\.?\d*|\.\d+)/g; MY>> почему не MY>> m/((\d*\.)?\d+)/g; MY>> ? KS> Вообще-то не эквивалетные примеры. KS> Тот вариант матчит '.123', а твой нет. Здрасьте. C:\>perl -e "$ARGV[0]=~m/((\d*\.)?\d+)/g;print $&" .123 .123 А вот 123. матчин, но без финальной точки. KS> Hо по идее без | будет чуток побыстрее. KS> Померяй :) По-моему, это экономия на булавках. А, вообще говоря, написать все можно по-разному. --- ifmail v.2.15dev5 * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/3300ee319841.html, оценка из 5, голосов 10
|