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