<?xml version="1.0" encoding="windows-1252"?>
<node id="438941" title="Re: Replaying Santa Claus Golf Apocalypse with Pugs/Perl6" created="2005-03-12 11:22:10" updated="2005-07-27 09:38:01">
<type id="11">
note</type>
<author id="418144">
rg0now</author>
<data>
<field name="doctext">
And here is my strike at &lt;code&gt;rev.p6&lt;/code&gt;

&lt;p&gt;

&lt;code&gt;
my@l=(open@ARGS[0]).readline();
for(@l){print pop(@l)}
&lt;/code&gt;
&lt;p&gt;
&lt;b&gt;Update:&lt;/b&gt; using the &lt;code&gt; = $filehandle&lt;/code&gt; operator in list context, this boils down to:
&lt;code&gt;
my@l==open@ARGS[0];
for(@l){print pop(@l)}
&lt;/code&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-418144"&gt;
&lt;p&gt;rg0now
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
438876</field>
<field name="parent_node">
438876</field>
</data>
</node>
