The chop() function in Perl is used to remove the last character from the input string.
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";
|
Output:
Chopped String is : GfG is a computer science porta Removed character is : l
Example 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";
|
Output :
Chopped String is : [1, 2, 3 Removed character is : ]