Perl chomp()用法及代码示例

Perl中的chomp()函数用于从输入字符串中删除最后一个尾随的换行符。

用法： chomp(String)

参数：
String :输入字符串，其尾随的换行符将被删除

返回值：从其所有参数中删除的尾随换行符的总数

示例1:

#!/usr/bin/perl 
  
# Initialising a string 
$string = "GfG is a computer science portal\n"; 
  
# Calling the chomp() function 
$A  = chomp($string); 
  
# Printing the chopped string and  
# removed trailing newline character 
print "Chopped String is : $string\n"; 
print "Number of Characters removed : $A";

输出：

Chopped String is : GfG is a computer science portal
Number of Characters removed : 1

在上面的代码中，可以看到包含换行符(\ n)的输入字符串已由chomp()函数删除。

示例2:

#!/usr/bin/perl 
  
# Initialising two strings 
$string1 = "Geeks for Geeks\n\n"; 
$string2 = "Welcomes you all\n"; 
  
# Calling the chomp() function 
$A  = chomp($string1, $string2); 
  
# Printing the chopped string and  
# removed trailing newline character 
print "Chopped String is : $string1$string2\n"; 
print "Number of Characters removed : $A\n";

输出：

Chopped String is : Geeks for Geeks
Welcomes you all
Number of Characters removed : 2

在上面的代码中，可以看到，包含两个换行符(\ n \ n)的输入string1通过chomp()函数仅删除了最后一个换行符，并使用了输出中可以看到的倒数第二个换行符。

相关用法

注：本文由纯净天空筛选整理自Kanchan_Ray大神的英文原创作品 Perl | chomp() Function。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。