Алексей Лихацкий (likhatskiy) wrote,
Алексей Лихацкий
likhatskiy

Category:

truncate string by length and word

Часто требуется обрезать строку по длине (ну возможно поставить в конце "..."). Проблема в том, что обрезание может попасть на часть слова, поэтому надо это слово обойти.
sub trunc {
    s/\s+?\S+?$//, return $_ for my $str = substr shift, 0, (shift || 1) + 1;
}
Вывод:
print trunc("11111 222  4444", 9);
#output: 11111 222
print trunc("11111 222  4444", 8);
#output: 11111
Tags: perl, string, truncate
Subscribe

  • OAUTH в Mojo и Mojolicious

    После написания модуля для всех версий протокола OAUTH преступил к использованию этого добра в проектах на Mojolicious. В итоге получился очень…

  • OAUTH 1.0, 1.0A и 2.0 в одном течении

    В силу стремительного распространения OAUTH, решил внедрить его в своих проектах. Начал разбираться, выяснилось что есть аж три версии протокола:…

  • default layout in Mojolicious

    В Mojolicious, чтобы указать layout, его надо либо прописывать в шаблоне % layout 'new_design' либо передавать контроллере…

  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 5 comments