Есть и другое решение. Вместо того, чтобы многократно вызывать команду print для печати звёздочек по одной штуке за раз, сформируем строку, состоящую из $n звёздочек, и выведем её одной единственной командой print. Удобный оператор репликации x к нашим услугам: выражение 'abc' x 4, к примеру, даёт строку abcabcabcabc. Чтобы построить строку из $n звёздочек, напишем выражение '*' x $n:

Perl
for(1..$n)
{
	print '*' x $n;
	print "\n";
}

Можно пойти ещё дальше, если вспомнить, что команда print способна выводить на экран несколько значений за раз — нужно лишь перечислить выводимые значения через запятую. Это позволит нам обойтись одним вызовом print для печати и звёздочек, и знака конца строки:

Perl
for(1..$n)
{
	print '*' x $n, "\n";
}

Наконец, заметим, что тем же способом можно устранить и внешний цикл: все символы, которыми рисуется квадрат (включая и звёздочки и знаки конца строки), можно объединить в одну строку всё тем же оператором репликации: (('*' x $n)."\n") x $n. При $n, равном трём, такое выражение даёт строку "***\n***\n***\n". Что ж, попробуем:

Perl
print (('*' x $n)."\n") x $n;

Но что это? При запуске программы на экран выводится следующее:

print (...) interpreted as function at ./asterisks-solid-square-bad.pl line 4.
Useless use of repeat (x) in void context at ./asterisks-solid-square-bad.pl line 4.
***

Будем разбираться. Параметры команды print, как и других встроенных команд, можно не заключать в скобки. Эта вольность во многих случаях создаёт удобства, но в некоторых вызывает недоразумения. Именно это и случилось. Грамматический анализатор Perl, увидев после print открывающую скобку, понимает, что между этой скобкой и парной к ней закрывающей находится список параметров команды print. Поэтому выражение print (('*' x $n)."\n") x $n воспринимается как (print(('*' x $n)."\n")) x $n. Чтобы вычислить его значение, нужно вычислить значение print(('*' x $n)."\n"), и повторить его как строку $n раз. Команда print возвращает значение, хотя оно обычно никак не используется: это количество успешно выведенных символов. К примеру, при $n, равном трём, это значение равно четырём (выведенная строка состоит из четырёх символов — три звёздочки и конец строки). Все выражение (print(('*' x $n)."\n")) x $n; даёт, таким образом, строку '4' x $n, то есть '444'. Это значение вычисляется, но никак не используется, что заставляет Perl подозревать ошибку: сообщение Useless use of repeat (x) in void context… означает Бесполезная репликация (x) в пустом контексте…. Странно вычислить выражение '4' x $n, чтобы не использовать его (использовать в пустом контексте), и Perl намекает нам на это. Если, конечно, мы включили режим вывода предупреждений. Побочным итогом вычисления выражения будет вывод сиротливых $n звёздочек, но не всего квадрата.

И как же быть? Конечно, использовать дополнительную пару скобок:

Perl
print((('*' x $n)."\n") x $n);

Невнимательный читатель может и не заметить небольшое отличие этого кода с окончательной версией программы: вместо точки, оператора конкатенации строк ('*' x $n)."\n", там стоит запятая. Тем не менее всё будет работать. Поясним, в чём разница, опять взяв для определённости $n, равное трём. Тогда команда

Perl
print((('*' x $n)."\n") x $n);

равносильна команде

Perl
print "***\n***\n***\n";

В то же время

Perl
print(('*' x $n, "\n") x $n);

равносильно

Perl
print '***', "\n", '***', "\n", '***', "\n";

Дело в том, что оператор репликации x может применяться не только к строкам, но и к спискам значений. В последнем случае строится список, включающий несколько экземпляров исходного списка. Например, выражение (1, 2, 3) x 4 даёт (1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3).