lilalo
annotate l3prompt @ 113:8287cb3530de
sever files added
| author | igor |
|---|---|
| date | Sun Mar 09 02:34:52 2008 +0200 (2008-03-09) |
| parents | |
| children | 658b4ea105c1 |
| rev | line source |
|---|---|
| igor@112 | 1 #!/usr/bin/perl |
| igor@112 | 2 |
| igor@112 | 3 $string="abcdefghijklmnopqrstuvwxyz"; |
| igor@112 | 4 $insert="\e[1K\e[10D"; |
| igor@112 | 5 $max=5; |
| igor@112 | 6 |
| igor@112 | 7 while (length($string) > $max) { |
| igor@112 | 8 $res .= substr($string, 0, $max).$insert; |
| igor@112 | 9 $string = substr($string, $max); |
| igor@112 | 10 } |
| igor@112 | 11 $res .= $string.$insert; |
| igor@112 | 12 print "$res\n"; |
| igor@112 | 13 |