perl – 在EOF之前的任何地方找不到字符串终止符“str”

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

导读：为什么我得到这个错误？ use strict;use warnings;my $str = str; 88087 23/11/2010 35192 25/07/2010 B3J 5X9 17/08/2011 C8U 5L6 16/08/2011 F4Q 3B4 17/10/2010 D3X 9P4 11/05/2010 O7L 6Z8 28/02/2010 W8L 9P2 05/09/2010 str print $str;my @arr = spli

为什么我得到这个错误？

use strict;
use warnings;

my $str = <<str; 
88087   23/11/2010 
35192   25/07/2010 
B3J 5X9 17/08/2011 
C8U 5L6 16/08/2011 
F4Q 3B4 17/10/2010 
D3X 9P4 11/05/2010 
O7L 6Z8 28/02/2010 
W8L 9P2 05/09/2010 
str 

print $str;

my @arr = split/n/,$str;
foreach (@arr) {
        my @tmp = split/t/;
        print "$tmp[1]n";
}

解决方法

你不应该有空间：

str 
   ^

heredoc终结器本身应该在一条线上,不应该有任何东西(甚至没有空间).

（编辑：李大同）

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