捕获前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'

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