вывод определенного количества

[Yaroslav]

есть $text="целая строка";
чем ее изменить что б она стала фиксированной длины, к примеру в 9 знаков. ($text="целая стр"

[NeoNox]

например вот так:
$count = 9;
$text =~ s/(\\w{$count}).*/$1/;

[Yaroslav]

спасибо.
где можно почитать, что б узнать и понять что делает эта функция?

[arto]

perldoc -f substr

[Yaroslav]

arto
это немножко не то.

[Wyclef]

Yaroslav
Что значит "немножко" (substr тебе не подойдет, только если у тебя в начале строки стоят пропуски, переносы и т.д.)? substr тоже обрезает строку, причем можно задать с какого конца, а в примере NeoNoxа исходная строка просто заменяется на $count первых алфавитных символов, найденных в ней же.

[Yaroslav]

Wyclef
да, обрезает и вставляет любой текст или до или после или вместо.
мне так показалось что пример NeoNoxа больше подходит.

[NeoNox]

Yaroslav substr $text, 0, 9;
тебе подходит не меньше. Разве, только в случаях указанных Wyclef

[Yaroslav]

NeoNox:
например вот так:
$count = 9;
$text =~ s/(\\w{$count}).*/$1/;

если в значении $text имеется пробел, данный пример не работает.

[Wyclef]

Yaroslav
Бывает. Замени на: ([\\w ]{$count}).*
А лучще substr в зубы и не заморачивайся.

[Mog.]

А почему не     /(.{$count})/$1/

[Yaroslav]

Wyclef:
А лучще substr в зубы и не заморачивайся.

с ним такая же проблемка

[Yaroslav]

и еще одно дополнение, для корректной работы с русским текстом нужно делать так.
$text =~ s/(.{9}).*/$1/;