如何删除Perl中哈希值的最后七个字符？

Question

我需要切断字符串的最后七个字符(存储在哈希中的字符串).在perl中最简单的方法是什么？提前谢谢了!

Answer 1

用substr():

substr($string, 0, -7);

我建议你substr()在复制并粘贴到你的代码之前阅读Perldoc页面(我上面链接了).它完成了你的要求,但它substr()是一个非常有用和多功能的功能,我建议你理解你可以使用它的一切(通过阅读文档).

此外,在将来,请考虑谷歌搜索您的问题(或者,在Perl的情况下,在Perldoc上查找),然后再在此处提问.你可以在这里找到很好的资源,而不必在这里提问.不要提出你的问题,但这很简单,我想如果你尝试过,你可以自己找到答案.

Answer 2

要删除最后7个字符:

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

或者有点不优雅

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

获得除了最后7个字符之外的所有字符:

substr($str, 0, -7)

Answer 3

使用perl substr函数,但将"length"参数设为负数.例:

#!/usr/bin/perl

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

这将返回带有换行符的字符串"str",因为我们指定截断最后三个字符.看看substr()上的Perl文档.