Всем привет... Элементарнейшая задачка- есть строка, если она длинее определенного числа символов- обрезать ее.

В голову мне пришел сразу такой вариант



Но к моему удивлению он не работает.. Почему- не понимаю   

Есть конечно вариант порезать тсроку на символы в помощью split и соединить в цикле первые 40 элементов... Но это уж совсем в лоб...

Есть красивое решение этой проблемы?

функция substr

Я так и думал, что где-то туплю ) Бывает такое   

{,40} – говорит выбрать до 40 символов, и якобы является максимальным квантификатором
.* – вот это точно максимальный квантификатор, и если вы сказали {,40}(обратите внимание на запятую), то он оставит этому квантификатору 0 симовлов, в то время как сам (.*) заберет все символы.

в общем запятую уберите и, кажется, будет вам счастье

ps не читал что то нигде чтоб у кантификаторов был приоритет "жадности", но кажется он есть 

FooBar правильно сказал:
$str = substr $str, 0, 40;

А регулярное выражение не работало по простой причине: нет квантификатора {,40}. Вот так работает:
$str =~ s/(.{40}).*/$1/;

Ну вот, пока писал и проверял, уже ответили.

Это сообщение отредактировал(а) amg - 2.11.2008, 14:32

в дополнение к этому вопросу. У меня есть переменная $a. Ее значение меняется (50 или 75 или 100) и мне надо использовать это число как квантификатор.  Запись \s{$a} - не работает, как еще можно сделать?

Это сообщение отредактировал(а) KSURi - 5.11.2008, 17:41

Присоединяюсь к KSURi,

Добрый вечер.
А может есть альтернатива этому:

Работающая быстрее.

Сильно быстрее -- вряд ли. Но попробуйте на всякий случай

amg, спасибо.