perl – 处理字符串字符时的神秘’1′

发布时间：2020-12-15 23:29:59 所属栏目：大数据来源：网络整理

导读：我正在尝试处理每个字符的文件字符输入,但有一些显示我不知道它们来自哪里.考虑这个例子：文件输入 First row;Second row;Third row; 文件test.pl #!/usr/bin/perlopen FILE,"input";my @characters = split //,join //,FILE;for( @characters ) { print $_

我正在尝试处理每个字符的文件字符输入,但有一些显示我不知道它们来自哪里.考虑这个例子：

文件输入

First row;
Second row;

Third row;

文件test.pl

#!/usr/bin/perl

open FILE,"<input";

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

close FILE;

我希望这个脚本只打印输入的内容(虽然以一种非常复杂的方式 – 它只是一个例子).但是,当我运行./test.pl时,我得到了这个输出：

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

现在我的问题是：这1个角色来自哪里？

解决方法

加入//应该加入”.

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

(拆分是特殊的,它将split /…/视为类似于拆分qr /…/.)

顺便说一句,总是使用严格;使用警告;它在这里很有用.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!