Perl chomp Function

Advertisements


Description

This safer version of chop removes any trailing string that corresponds to the current value of $/ (also known as $INPUT_RECORD_SEPARATOR in the English module). It returns the total number of characters removed from all its arguments. By default $/ is set to new line character.

Syntax

Following is the simple syntax for this function:

chomp VARIABLE

chomp( LIST )

chomp

Return Value

This function returns Integer, number of bytes removed for all strings.

Example

Following is the example code showing its basic usage:

#!/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";

When above code is executed, it produced following result:

Choped String is : This is test
Number of characters removed : 0
Choped String is : This is test
Number of characters removed : 1


Advertisements
Advertisements