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