如何拆分我想要在Perl 6中打印的长字符串？

Question

say "This is a very long line, and it seems it will not fit my screen, but alas, I don't know how to split it without getting an additional newline";

如何在不输出不需要的换行符的情况下将"..."分成几行（我的意思是在代码中）？我在换行前考虑了\，但它不起作用。

Answer 1

您的示例用作引用here-doc

的单词

say qw:to<END>.join: ' ';
   This is a very long line, and it seems it will not fit my
   screen, but alas, I don't know how to split it without getting
   an additional newline
   END

一般情况下，如果输出是一行，输入是空格分隔的单词列表。

它也可以引用并加入行：

say q:to<END>.lines.join: ' ';
   This is a very long line, and it seems it will not fit my
   screen, but alas, I don't know how to split it without
   getting an additional newline
   END

保留每行中的格式。

Answer 2

似乎没有什么比串联更好了：

say "This is a very long line, and it "
  ~ "seems it will not fit my screen, "
  ~ "but alas, I don't know how to split "
  ~ "it without getting an additional newline";