PERL chomp Function

Syntax

chomp VARIABLE chomp( LIST ) chomp

Definition and Usage

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.

Return Value

• Integer, number of bytes removed for all strings

Example

#!/usr/bin/perl $string1 = "This is test"; $retval = chomp( $string1 ); print " Choped String is : $string1n"; print " Number of characters removed : $retvaln"; $string1 = "This is testn"; $retval = chomp( $string1 ); print " Choped String is : $string1n"; print " Number of characters removed : $retvaln";

This will produce following result

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