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