1. Perl / Говнокод #2418

    −109.5

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    sub title {
        my ($str, $len) = @_;
    
        while (1) {
            last if substr($str, $len, 1) eq ' ';
            ++$len;
        }
    
        return substr($str, 0, $len) . "...";
    }

    аналог Index.

    Запостил: klem4, 15 Января 2010

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

    • не весь код, кусок который while.
      Ответить
      • Про index с тремя параметрами не слыхали?
        Ответить
        • так об этом и речь вообщето)))) не из Эстонии случайно ?))))
          Ответить
    • sub title {
          my ($str, $len) = @_;
          $str =~ s/^(.+?\b|.{$len}).+/$1.../;
          return $str;
      }

      // Ваш Ф.Р. (фанат регулярок)
      Ответить
    • аххах, минусуют видимо авторы кода ?
      Ответить

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