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

前端之家收集整理的这篇文章主要介绍了perl – 在EOF之前的任何地方找不到字符串终止符“str”前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
为什么我得到这个错误
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终结器本身应该在一条线上,不应该有任何东西(甚至没有空间).

猜你在找的Perl相关文章