数组Perl中的字符串长度始终返回1

Question

我正在尝试获取数组元素的长度（字符串），但每次都得到1 这是我的代码

while (my $line =<$file>) {
  chomp $line;
my @words = split('', $line);
foreach my $element (@words)
{
  print length($element);
}

长度总是返回1，但是对于其他变量，它可以正常工作 请帮助找到问题。

Answer 1

您使用了

split('', $line)

告诉Perl将$line拆分为单个字符。我认为你打算使用

split(' ', $line)

这告诉Perl将$line拆分为“单词”（由空格分隔的字符序列）。

Answer 2

在split function中使用regexpr：

my @words = split(/\s+/, $line);

\s表示whitespace和+一个或多个发生次数