Регулярные Выражения

Тема в разделе "Perl программирование", создана пользователем Katrina, 17 дек 2014.

  1. Katrina

    Katrina New Member

    Регистрация:
    17 дек 2014
    Сообщения:
    1
    Симпатии:
    0
    Подскажите, если в perl использовать регулярные выражения, то как правильно с их помощью в каждой строке абзаца (за исключением последней строки) ограничить длину символов от 60 до 80?
    Насколько я понимаю, диапазон мы задаем посредством
    Код (Text):
    {60, 80}
    . Непустая строка - это
    Код (Text):
     /.+/
    . То есть мы можем начать
    Код (Text):
    s/.+/  /gm;
    ? Только как тогда правильно задать "действие" между
    Код (Text):
    / /
    , чтобы оно выполнялось, а не вписывалось в текстовый файл то, что между слешами? Не могу же я написать там
    Код (Text):
    .+{60, 80}
    , это ведь как-то неправильно. (изначально у меня текстовый файл, который я и форматирую, как раз длина - одно из условий). Кто может объяснить, помогите.
     
  2. arto

    arto Member

    Регистрация:
    21 июн 2006
    Сообщения:
    10
    Симпатии:
    0
    пример для длины 20-30:
    #
    print "s,vb SLB SRLVJBNRVaa bb cc dd ee gg hh ii kk akadjev aekjb a,bj ,jbaevmeb caevjbknvb" | perl -plne 's#(.{20,30})\s#$1\n#gs'
    s,vb SLB SRLVJBNRVaa bb cc dd
    ee gg hh ii kk akadjev aekjb
    a,bj ,jbaevmeb caevjbknvb
     
Загрузка...

Поделиться этой страницей