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() functionA  = 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 :string1string2\n";
print "Number of Characters removed :A\n";

输出。

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

在上面的代码中，可以看到输入的字符串1包含两个换行符（\n\n），其中只有最后一个换行符被chomp()函数删除，第二个换行符被利用，这在输出中可以看到。