lilalo: 266dae9ce2a1 l3prompt

lilalo

mass upload

line source

1 #!/usr/bin/perl

3 my $string=$ARGV[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";