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

    −153

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    sub asd {
	
	print "WUT\n";
	
	return { 1 => 2 };
}

while( my ( $k, $v ) = each( %{ asd() } ) ) {
	
}

    http://ideone.com/EvoMvV

    Запостил: kainwinterheart, 23 Июня 2014

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

    • ava Elvenfighter 23.06.2014 20:49 # +1

      Каждый раз создается новый HASHREF, а each сохраняет итератор для каждого хеша. Вполне очевидное поведение.

      Из той же оперы:
      while (my ($k, $v) = each %hash) {
    print "$k => $v\n";
    keys %hash;
}

      http://ideone.com/PzjydH
      Ответить

      • ava kainwinterheart 23.06.2014 22:04 # 0

        Что keys() сбрасывает внутренний итератор - известно и документировано. А вот очевидным поведением в данном случае было бы один раз посчитать значение asd(), и уже потом работать именно с посчитанным значением, вместо того, чтобы по неведомой причине пересчитывать его каждый раз.
        Ответить

        • ava Elvenfighter 23.06.2014 23:51 # 0

          http://perldoc.perl.org/functions/each.html

          Походу тут именно each EXPR
          Ответить

          • ava Dummy00001 24.06.2014 04:55 # 0

            Starting with Perl 5.14, each can take a scalar EXPR, which must hold reference to an unblessed hash or array. The argument will be dereferenced automatically. This aspect of each is considered highly experimental. The exact behaviour may change in a future version of Perl.
            Ответить

            • ava wvxvw 26.06.2014 08:27 # +2

              > unblessed
              Что это вы там такое с массивами делаете?
              Ответить

              • ava bormand 26.06.2014 08:54 # +1

                У благославленного массива можно вызывать методы :) В общем он становится объектом.
                Ответить

              • ava kegdan 26.06.2014 09:52 # +2

                отречение массива от церкви)
                Ответить

          • ava kegdan 24.06.2014 07:31 # 0

            >>perldoc

            пердак
            Ответить

            • ava bormand 24.06.2014 07:36 # +1

              > пердак
              perlduck
              Ответить

              • ava kegdan 24.06.2014 08:08 # 0

                perlduck Tales, Oo-oo
                Tales of derring-do, bad and good luck tales, oo-oo
                Not pony tails or cotton tails but perlduck Tales, oo-oo!
                Ответить

              • ava Elvenfighter 24.06.2014 18:39 # 0

                > perlduck
                По такому запросу гугль меня отправил на какой-то индусский сайт поиска работы. Задумался...
                Ответить

              • ava eth0 24.06.2014 19:44 # 0

                Per duck.
                Гугол уверяет, что это "за утки".
                Ответить

                • ava kegdan 24.06.2014 19:49 # 0

                  и это верно
                  типа
                  miles per hour
                  Ответить

                  • ava eth0 25.06.2014 20:39 # 0

                    Да, я об этом и подумал. Только более корректно использование"в": "километры в час", "оборотов в минуту". Но, с другой стороны, "точек на дюйм".
                    Ответить

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