<?xml version="1.0" encoding="windows-1252"?>
<node id="716386" title="Re^3: Generate the perl sequence 1, 11, 111, ...." created="2008-10-10 04:24:00" updated="2008-10-10 04:24:00">
<type id="11">
note</type>
<author id="716381">
matrixmadhan</author>
<data>
<field name="doctext">
Hello all,

This is my very first post/reply to perlmonks.org :)

&lt;code&gt;
my $one_literal = "1";
my $counter = 1;

while ( 1 ) {
  for ( my $i = 1; $i &lt;= $counter; $i++ ) {
    printf "$one_literal";
  }
  printf "\n";
  $counter++;
}
&lt;/code&gt;</field>
<field name="root_node">
716367</field>
<field name="parent_node">
716378</field>
</data>
</node>
