=()= / Говнокод #2418 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
sub title {
    my ($str, $len) = @_;

    while (1) {
        last if substr($str, $len, 1) eq ' ';
        ++$len;
    }

    return substr($str, 0, $len) . "...";
}

аналог Index.

Запостил: klem4 klem4, (Updated )

Комментарии (5) RSS

      • ava klem4 # Ссылка на оригинал 0 ⇈

        так об этом и речь вообщето)))) не из Эстонии случайно ?))))
        Ответить

  • ava guest # Ссылка на оригинал 0 

    sub title {
    my ($str, $len) = @_;
    $str =~ s/^(.+?\b|.{$len}).+/$1.../;
    return $str;
}

    // Ваш Ф.Р. (фанат регулярок)
    Ответить

Добавить комментарий

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓