1、chop函数:删除标量变量或数组中每个字符的最后一个字
举个栗子: #!/usr/bin/perl $v = 'Flowers'; $r = chop($v); print "$v (without $r) ";