Точка (.
) - это оператор конкатенации в Perl.
$string = $a_substring . $another_substring;
Иногда требуется объединить текст в одну и ту же переменную.
$string = $string . $some_extra_text;
Большинство бинарных операторов вУ Perl есть версия «присваивания», которая упрощает подобный код.Поэтому вместо:
$total = $total + $line_value;
Вы можете просто написать:
$total += $line_value;
Синтаксис подобный этому можно найти практически во всех языках программирования в стиле C.
ВPerl, оператор конкатенации, имеет версию присваивания.Так что вместо:
$string = $string . $some_extra_text;
Вы можете просто написать:
$string .= $some_extra_text;
Итак, изменив эту логику, ваш код:
$contents .= $_;
Это просто ярлык для:
$contents = $contents . $_;