Справочник по функциям Perl

Функция отрезает последний символ строки, модифицируя свой аргумент, и возвращает удаленный символ в качестве результата. Используется преимущественно для удаления символа перевода строки в конце входной записи, однако оказывается более эффективной по сравнению с использованием оператора s/\n//, поскольку не выполняет сканирования всей строки и не создает ее копии. В случае, если аргумент функции не указан, по умолчанию используется переменная $_. Например:

while (<>) {
chop;	# удаляем \n в последнем поле
@array = split(/:/);

В принципе, обрезать можно все что угодно, включая оператор присваивания:

chop($cwd = 'pwd');
chop($answer = <STDIN>);

В случае применения chop к списку производится обрезка каждого его элемента. В качестве значения возвращается только значение последней операции (то есть результата применения chop к последнему элементу списка).

ПРИМЕЧАНИЕ
Обратите внимание, что chop возвращает последний символ; чтобы вернуть все, кроме этого символа, используйте функцию substr.

chop

Синтаксис

Описание