0 Пользователей и 1 Гость просматривают эту тему.
Lastiik:...>1 23ЦитироватьLastiik:$text=~m/(\\A|> )[\\d\\s\\.,]+(<|\\z)/; # +\\sне работаетне учитывается пробел.
Lastiik:$text=~m/(\\A|> )[\\d\\s\\.,]+(<|\\z)/; # +\\sне работает
не учитывается пробел.
(\\A|> )[\\d\\.,\\s]+(<|\\z) ^^^
my ($reg) =($teхt=~ m/.>(\\d.+)<./g);