1. Список говнокодов пользователя Dimio

    Всего: 1

  2. Perl / Говнокод #6123

    −121

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    sub removeSpaces {
  my $str = $_[0];
  while ( $str =~ /[\t ]+/ ) {
    $str = $`.$';
  }
  return $str;
}

    Найдено при разборе скрипта подготовки данных для тестов.

    Dimio, 29 Марта 2011

    Комментарии (0)