如何在Perl中删除散列值的最后七个字符?

具有 substr() :

substr($string, 0, -7);

我建议你阅读上的Perldoc页面 (我在上面链接到)然后将其复制并粘贴到代码中。它按你的要求做,但是 是一个非常有用和多功能的函数,我建议您(通过阅读文档)了解它的用途。

要删除最后7个字符,请执行以下操作:

substr($str, -7) = '';

substr($str, -7, length($str), '');

要获取除最后7个字符以外的所有字符,请执行以下操作:

substr($str, 0, -7)

使用perl substr

#!/usr/bin/perl

my $string = "string";
$short = substr($string, 0, -3);
printf $short . "\n";

这将返回带有换行符的字符串“str”,因为我们指定截断最后三个字符。看一看 Perl documentation on substr()