Perl 编程/关键字/chop

Thechopkeyword

Thechop函数截断字符串的最后一个字符并将其返回。它比s/.$//s更高效，因为它不扫描也不复制字符串。没有VARIABLE，它截断$_。如果VARIABLE是哈希，它会截断哈希的值，而不是其键，并在过程中重置每个迭代器。

如果列表被截断，每个元素都被截断，但只返回最后一个截断的值。请注意，chop 返回最后一个字符。要返回除最后一个字符以外的所有字符，substr($string, 0, -1)应该被使用。

语法

  chop VARIABLE
  chop(LIST)
  chop

示例

代码

use 5.10.0;

%favorite = (joe => 'red', sam => 'blue', walter => 'black');

%list = %favorite;

say "%favorite = ";
foreach my $element (%favorite) {
  say $element;
}

say "Now, chopping...";
say chop(%favorite);

say "%favorite = ";
foreach my $element (%favorite) {
  say $element;
}

返回以下内容

%favorite =
walter
black
joe
red
sam
blue
Now, chopping...
e
%favorite =
walter
blac
joe
re
sam
blu