perlre, точный аналог «%10d»

\d{10} не?

Нет, пробелы так не матчатся.

Там в примере ошибка,

substr($a, 0, 10) =~ /\s*([+-]?\d+)$/

Сам поэкспериментируй! Совсем народ обленился, понимешь ли..

$a =~ /^\s*([+-]?\d{1,10})\s*$/

не?

ага, дошло таки, что ты хочешь…

/[-+\d]\d{9}|\s[-+\d]\d{8}|\s{2}[-+\d]\d{7}|\s{3}[-+\d]\d{6}|\s{4}[-+\d]\d{5}|\s{5}[-+\d]\d{4}|\s{6}[-+\d]\d{3}|\s{7}[-+\d]\d{2}|\s{8}[-+\d]\d{1}|\s{9}\d/

Тьфу ты, ну да, sscanf ведь именно так работает. Так что это верный ответ на поставленный вопрос :-)

А мне было нужно, чтобы «10» означало 10 позиций, а не десять цифр. Чтобы не

 "     1234567890" ~ /^\s*([+-]?\d{1,10})\s*$/ —>  $1 == 1234567890

а $1 —> 12345. Ну да ладно, вопрос остался чисто академический: можно ли ограничить квантификатором длину целого соответствия, а не последовательности символов.

[смайлик с открытым ртом]

Не, китайский код не годится :-) Я думал как-то более обще можно.

> Ну да ладно, вопрос остался чисто академический: можно ли ограничить квантификатором длину целого соответствия, а не последовательности символов.

Примеры приведи.

$a =~ /^(.{10})/;
$1 =~ /\s*(\d+)/;

Я хотел это одним выражением. Что-то типа

$a =~ /^(?:\s*(\d+)){10}/

Понятно что последнее не работает.

/^[\s*(?=(\d+))]{10}$/

не?

Не, внутри определения класса символов (т.е. внутри квадратных скобок) выражения к сожалению не работают.

printf «%+10d» 123 | perl -ne 'print «ok» if /^(\s*[-+]?)(??{«\\d{» . (10 - length($1)) . «}»})$/'