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