为什么我得到这个错误?
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终结器本身应该在一条线上,不应该有任何东西(甚至没有空间).