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

Question

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

例如

goes_2017-05-14_00:00:00 

要得到

goes_2017-05-14_

Answer 1

假设字符串是$s.

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