-<pre class="editor editor-colors"><div class="line"><span class="source raku"><span class="storage modifier declarator raku"><span>my</span></span><span> </span><span class="meta variable container raku"><span class="variable other identifier sigil raku"><span>$</span></span><span class="variable other identifier raku"><span>crlf-out</span></span></span><span> </span><span class="storage modifier assignment raku"><span>=</span></span><span> </span><span class="support function raku"><span>open</span></span><span>(</span><span class="support type raku"><span>IO</span></span><span>::</span><span class="routine name raku"><span>Special</span></span><span class="keyword operator generic raku"><span>.</span></span><span class="support function raku"><span>new</span></span><span>(</span><span class="string quoted single single raku"><span class="punctuation definition string begin raku"><span>'</span></span><span><STDOUT></span><span class="punctuation definition string end raku"><span>'</span></span></span><span>), </span><span class="keyword operator generic raku"><span>:</span></span><span class="routine name raku"><span>nl-out</span></span><span>(</span><span class="string quoted double raku"><span class="punctuation definition string begin raku"><span>"</span></span><span class="constant character escape raku"><span>\\</span><span>\n</span><span>\r</span></span><span class="punctuation definition string end raku"><span>"</span></span></span><span>));</span></span></div><div class="line"><span class="source raku"><span class="meta variable container raku"><span class="variable other identifier sigil raku"><span>$</span></span><span class="support class twigil raku"><span>*</span></span><span class="variable other identifier raku"><span>OUT</span></span></span><span class="keyword operator generic raku"><span>.</span></span><span class="support function raku"><span>say</span></span><span class="keyword operator generic raku"><span>:</span></span><span> </span><span class="constant numeric raku"><span>1</span></span><span>; </span><span class="comment line number-sign raku"><span class="punctuation definition comment raku"><span>#</span></span><span>OUTPUT: «1»</span><span> </span></span></span></div><div class="line"><span class="source raku"><span class="meta variable container raku"><span class="variable other identifier sigil raku"><span>$</span></span><span class="variable other identifier raku"><span>crlf-out</span></span></span><span class="keyword operator generic raku"><span>.</span></span><span class="support function raku"><span>say</span></span><span class="keyword operator generic raku"><span>:</span></span><span> </span><span class="constant numeric raku"><span>1</span></span><span>; </span><span class="comment line number-sign raku"><span class="punctuation definition comment raku"><span>#</span></span><span>OUTPUT: «1\␍»</span></span></span></div></pre><p>In this example, where we are replicating standard output to a new handle by using <a href="/type/IO::Special">IO::Special</a>, we are appending a <code>\</code> to the end of the string, followed by a newline <code></code> and a carriage return <code>␍</code>; everything we print to that handle will get those characters at the end of the line, as shown.</p>
0 commit comments