删除字符串的最后一个字符

Question

如何使用Perl删除字符串的最后六个字符？在我的情况下，我需要删除:00:00

例如

goes_2017-05-14_00:00:00 

获取

goes_2017-05-14_

Answer 1

假设字符串为$s。

$s = substr $s, 0, -6;

Answer 2

您可以使用substr：

substr($string, -6) = "";
# or
substr $string, -6, length $string, "";

或替换：

$string =~ s/.{6}$//;

或chop：

chop $string for 1 .. 6;