perl - 处理字符串时出现神秘的 '1'

Question

我正在尝试处理每个字符的文件字符输入，但有一些 1 s 出现了，我不知道它们来自哪里。考虑这个例子:

文件 input

First row;
Second row;

Third row;

文件 test.pl

#!/usr/bin/perl

open FILE, "<input";

my @characters = split //, join //, <FILE>;
for( @characters ) {
  print $_;
}

close FILE;

我希望这个脚本只打印 input 的内容(虽然以一种非常复杂的方式——这只是一个例子)。但是，当我运行 ./test.pl 时，我得到这个输出:

First row;
1Second row;
1
1Third row;

现在我的问题是:这些在哪里 1人物从何而来？

Answer 1

join //应该是 join '' .
// , $_ =~ m//的缩写, 是匹配运算符。因为匹配成功，所以返回真值1 .

( split 的特殊之处在于它将 split /.../ 视为类似于 split qr/.../ 的东西。)

顺便说一句，请始终使用 use strict; use warnings; .在这里会很有用。