The chop() function in Perl is used to remove the last character from the input string.
Perl
Output:
Perl
Output :
Syntax: chop(String) Parameters: String : It is the input string whose last characters are removed. Returns: the last removed character.Example 1:
#!/usr/bin/perl
# Initialising a string
$string = "GfG is a computer science portal";
# Calling the chop() function
$A = chop($string);
# Printing the chopped string and
# removed character
print " Chopped String is : $string\n";
print " Removed character is : $A\n";
Chopped String is : GfG is a computer science porta Removed character is : lExample 2:
#!/usr/bin/perl
# Initialising a string
$string = "[1, 2, 3]";
# Calling the chop() function
$A = chop($string);
# Printing the chopped string and
# removed character
print " Chopped String is : $string\n";
print " Removed character is : $A\n";
Chopped String is : [1, 2, 3 Removed character is : ]