perl - 捕获前 8 个字符 Perl

Question

我怎么能取一个字符串的 8 个字符，例如：

如果我有这样的：

my $word ="take first 8 characters";

我怎么能打印这个：take fir？

Answer 1

使用substr.

print substr($word, 0, 8);

Answer 2

使用内置substr函数。substr($string, $start, $length)

Answer 3

来自perlfaq4：如何访问或更改字符串的 N 个字符？：

您可以使用 substr() 访问字符串的第一个字符。例如，要获取第一个字符，从位置 0 开始并获取长度为 1 的字符串。

my $string = "Just another Perl Hacker";
my $first_char = substr( $string, 0, 1 ); # 'J'

（有关更改部分字符串的指导，请参阅文章的其余部分。）