Регексп (Перл)

$str =~ /[^\.\d\s]/ ? 'err' : 'ok';

/^[.0-9 ]+$/

/^[\.0-9 ]+$/

fixed

если именно 'И' а не 'ИЛИ' то будет чтото такое: (/\.+/ && /\d+/ && / +/)?'ok':"err";

Кстати да!
Только надо ещё "и не содержит остального" добавить:
&& ! /[^\. \d]/

Если бы не "чисел", а "цифр", и не подразумевается множественное число для точек и пробелов, т.е. "хотя бы одна точка"...:

perl -e '$test_str="99.11 22.00 21"; print "Это какая надо строка" if $a =! /(?=.*\.)(?=.*\d)(?=.*\s).*[^\.\d\s]/'

Нет, наверное, так...

perl -e '$test_str="99.11 22.00 21"; print "Это какая надо строка" unless $a =~ /(?=.*\.)(?=.*\d)(?=.*\s).*[^\.\d\s]/'

я так понял что кроме цифр, точке и пробелов больше ничего присутствовать в строке не должно. но ни первый ни второй вариант не работают со строкой "99.11 2aaa0 21" (оба выдают 'Это какая надо строка').
так что думаю всетаки правильней будет:
perl -e '$_="99.11 22.0aaaa0 21"; $test=(/\.+/ && /\d+/ && / +/ && !/[^\.\d ]/)?"ok":"err"; print $test;'

а все работает... вы просто не ту переменную сравниваете :)

а поему этот вариант работает ( т е все кроме строк сост из . цифорок и пробелов ) - ERR

> /^[.0-9 ]+$/

Этот регэксп сосёт. 1e5, скажем, - вполне себе число.

>> /^[.0-9 ]+$/

>Этот регэксп сосёт. 1e5, скажем, - вполне себе число.

У автора не было никаких указаний на то, что он считает числом. xyz тоже вполне себе число в некоторых системах счисления.