Perl chomp 函数

• 

  描述

  chomp 这个更安全的版本的chop删除了与当前值$/(在英语模块中也称为$INPUT_RECORD_SEPARATOR)相对应的任何尾随字符串。它返回从其所有参数中删除的字符总数。默认情况下$/被设置为新行字符。
• 

  句法

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

  
  chomp VARIABLE
  
  chomp( LIST )
  
  chomp
  

• 

  返回值

  此函数返回整数，为所有字符串删除的字节数。
• 

  示例

  以下是显示其基本用法的示例代码，假设您在/user/home/jc2182目录中工作-

   
  $string1 = "This is test";
  $retval  = chomp( $string1 );
  
  print " Choped String is : $string1\n";
  print " Number of characters removed : $retval\n";
  
  $string1 = "This is test\n";
  $retval  = chomp( $string1 );
  
  print " Choped String is : $string1\n";
  print " Number of characters removed : $retval\n";
  

  尝试一下

  执行结果：

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