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

    • ava klem4 15.01.2010 13:10 # 0

      не весь код, кусок который while.
      Ответить

      • ava guest 18.01.2010 01:36 # 0

        Про index с тремя параметрами не слыхали?
        Ответить

        • ava klem4 18.01.2010 17:56 # −1

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

    • ava guest 15.01.2010 18:58 # 0 

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

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

    • ava guest 16.01.2010 13:06 # 0

      аххах, минусуют видимо авторы кода ?
      Ответить

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