lilalo: f45ba4b5dc7f l3prompt

lilalo

l3-config added

line source

1 #!/usr/bin/perl

3 my $string=$_[0];

4 my $insert="\e[1K\e[10D";

5 my $max=5;

7 while (length($string) > $max) {

8 $res .= substr($string, 0, $max).$insert;

9 $string = substr($string, $max);

11 $res .= $string.$insert;

12 print "$res";