$a=1; while ($b< 100){ $a =~ s/1$/11/; print "$a\n"; $b++; }
Enjoy!
Dageek
In reply to Re: Generate the perl sequence 1, 11, 111, ....
by johndageek
in thread Generate the perl sequence 1, 11, 111, ....
by alih110
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |