【发布时间】：2017-05-14 22:05:06
【问题描述】：
如何使用 Perl 删除字符串的最后六个字符？在我的情况下，我需要删除 :00:00
例如
goes_2017-05-14_00:00:00
得到
goes_2017-05-14_
【问题讨论】：
标签： perl
【发布时间】：2017-05-14 22:05:06
【问题描述】：
假设字符串是$s。
$s = substr $s, 0, -6;
【讨论】：
-
...@timrau 谢谢....另一个问题...如果字符串是文件名，如何保存新名称？如何更改文件夹中文件的名称？不仅要打印，我还想在文件名中替换字符...
你可以使用substr:
substr($string, -6) = "";
# or
substr $string, -6, length $string, "";
或替换：
$string =~ s/.{6}$//;
或chop:
chop $string for 1 .. 6;
【讨论】：
-
或
substr($string, -6) = "";。