在perl中查找整数子串的最佳方法

Question

我有一个像这样的字符串

$number="1234567";

我想从中提取子字符串，但我没有通过substr函数得到正确的结果。

如果我执行

substr $number ,0,1 ;

我得到1输出，但它应该是12。

Answer 1

要获得12，您需要：

substr $number, 0, 2

的语法substr是：

substr $var, OFFSET, LENGTH

所以当你这样做时：

substr $number ,0,1

将会OFFSET是0并且LENGTH将会是1。

perl是零索引的，即索引从 开始0，并且您选择的子字符串的长度是1，因此您只能1按预期获得输出。