Perl | chomp() Function

The chomp() function in Perl is used to remove the last trailing newline from the input string.

Syntax: chomp(String)

Parameters:
String : Input String whose trailing newline is to be removed

Returns: the total number of trailing newlines removed from all its arguments

Example 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";

Output:

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

In the above code, it can be seen that input string containing a newline character (\n) which is removed by chomp() function.

Example 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";

Output:

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

In the above code, it can be seen that the input string1 containing two newline characters (\n\n) out of which only last newline character is removed by chomp() function and second last newline character is utilized which can be seen in the output.

My Personal Notes arrow_drop_up

Save