如何拆分我想要在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

您的示例适用于此处引用的单词-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

它保留每行内的格式.