Perl chomp 函数

描述

这个更安全的 Chop 版本删除了与 $/ 的当前值相对应的任何尾随字符串（在英语模块中也称为 $INPUT_RECORD_SEPARATOR）。 它返回从所有参数中删除的字符总数。 默认情况下 $/ 设置为换行符。

语法

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

chomp VARIABLE

chomp( LIST )

chomp

返回值

此函数返回整数，即为所有字符串删除的字节数。

示例

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

#!/usr/bin/perl

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

print " Choped String is : $string1\n";
print " Number of characters removed : $retval\n";

$string1 = "This is test\n";
$retval  = chomp( $string1 );

print " Choped String is : $string1\n";
print " Number of characters removed : $retval\n";

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

Choped String is : This is test
Number of characters removed : 0
Choped String is : This is test
Number of characters removed : 1

❮ Perl 函数参考