Perl chop 函数

• 

  描述

  chop 函数从EXPR，LIST的每个元素或$_（如果未指定值）中删除最后一个字符。
• 

  句法

  以下是此函数的简单语法-

  
  chop VARIABLE
  
  chop( LIST )
  
  chop
  

• 

  返回值

  此函数返回从EXPR中删除的字符，并且在列表上下文中，从LIST的最后一个元素中删除该字符。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  $string1 = "This is test";
  $retval  = chop( $string1 );
  
  print " Choped String is : $string1\n";
  print " Character removed : $retval\n";
  

  尝试一下

  执行结果：

  
  Choped String is : This is tes
  Number of characters removed : t