刪除字符串的最後一個字符

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;