in reply to Generate the perl sequence 1, 11, 111, ....

For the fun of it: 

perl -e 's/$/$\//;print while s/$/1/'

[download]
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

Replies are listed 'Best First'.
Re^2: Generate the perl sequence 1, 11, 111, ....
by jwkrahn (Abbot) on Oct 10, 2008 at 10:14 UTC

    Or more simply: 

    perl -le'print while s/$/1/'

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom