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

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;