Perl chomp 函数

说明

这个 chomp 的更安全的版本删除任何与 $/ 当前值（在 English 模块中也称为 $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