Perl chop 函数

描述

此函数从 EXPR、LIST 的每个元素或 $_ 中删除最后一个字符（如果未指定值）。

语法

以下是此函数的简单语法 −

chop VARIABLE

chop( LIST )

chop

返回值

此函数返回从 EXPR 中删除的字符，在列表上下文中，该字符从 LIST 的最后一个元素中删除。

示例

以下是显示其基本用法的示例代码 −

#!/usr/bin/perl

$string1 = "This is test";
$retval  = chop( $string1 );

print " Choped String is : $string1\n";
print " Character removed : $retval\n";

执行上述代码时，会产生以下结果 −

Choped String is : This is tes
Number of characters removed : t

❮ Perl 函数参考