perl - 保留qw中的空白

有什么方法可以在QW中保留一些空白吗？例如:

my @a=qw(1234 John Smith 123 Main St.);

将产生一个包含6个元素的数组。有什么办法，哦，我不知道...逃脱空白以保留其中的一部分？就像是:

my @a=qw(1234 John\ Smith 123\ Main\ St.);

返回3个元素:“1234”，“约翰·史密斯”，“123 Main St.”？

(仅供引用，我已经尝试了上述方法，并且使用了不同的引号组合，但都无济于事)

最佳答案

仅以换行符分隔:

my @a = split /\n/, <<'END';
1234
John Smith
123 Main St.
END

关于perl - 保留qw中的空白，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/20858981/