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

    −119

    1. 1
    2. 2
    3. 3
    4. 4
    foreach $line (@data) {
    			@alldata = 0;
    			unshift @alldata;
    			@alldata = split(/\|/, $line);

    Инициализация массива.

    Запостил: da4ever, 06 Февраля 2011

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

    • Ого!
      t-5
      не обложайтесь в этот раз!
      Ответить
    • уншифт нулленой даты это круто. Или я уже забыл перл?
      Ответить
      • Все в порядке. Это же write-only язык.
        Ответить
      • строка 2: заменить содержимое массива другим массивом с одним элементом - "(0)"

        строка 3: ничего не делает, unshift()у нужен аргумент, чего добавлять в начало. (теоретически должно варнингом ругнутся.)

        строка 4: заменить содержимое массива результатом split()

        весьма странное говно.
        Ответить
        • может быть, unshift() добавляет в начало $_? (если это вырвано из процедуры)
          но все равно 2ая и 3я строчки не имеют смысла из-за 4ой.
          Ответить
          • проверил - нет, unshift нужен аргумент. http://perldoc.perl.org/functions/unshift.html
            Ответить
            • надо бы в боевых условиях проверить.
              а то например здесь рисуют что можно и так: http://perl.ericdlarson.com/session2/sld011.htm
              Ответить

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