珀尔 |斩波()函数

Perl 中的chop()函数用于从输入字符串中删除最后一个字符。

Syntax: chop(String)

Parameters:
String : It is the input string whose last characters are removed.

Returns: the last removed character.

示例 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 : l

示例 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 : ]