[Moscow.pm] Склеивание строк в perl5.8

[Сергей Мартынов]

> Мне кажется, что тест не полон без этих вариантов

А мне кажется, что быстрее всего такой вариант:

       'join' => sub {
           my $scalar_c = '';
           for (my $i=0; $i < 1000; $i++) {
		$scalar_c .= join '', @test_data;
           }
           return $scalar_c;
       },

И тестам тоже так кажется ;)

Но на самом деле это некорректное сравнение - все зависит от исходной
задачи. Не всегда данные подготовлены в массиве.


-- 
С уважением, Сергей Мартынов.