Я что-то не понял, ты хочешь организовать всю эту визуализацию в окне командной строки? Если да, то вот написал тебе хороший повод для размышления. 
| Код |
#!/usr/bin/perl -w
use strict;
use Time::HiRes qw( sleep );
########################################################################################
# Настройки #
########################################################################################
my $str = "H E L L O W O R L D"; # Строка может содержать произвольные символы
my $ind = "*"; # Символ, который будет перемещаться при поиске
my $delay = 0.05; # Задержка в секундах (можно указать значение типа double)
my $clear = "cls"; # Команда очистки экрана, по умолчанию cls (Windows)
########################################################################################
# Рабочий код #
########################################################################################
my($pos,$back,@chars,$res)=(0,0,(),"");
@chars = sort { $a cmp $b } split(/\s+/, $str);
$res = " " x length( $str );
while ( my $char = shift @chars ) {
while ( 1 ) {
my $res2 = $res;
@chars ? substr($res2, $pos, 1, $ind) : substr($res2, $pos, 1, $char);
system($clear);
print "$str\n$res2\n";
if ( ( index($str, $char, $pos) == $pos ) and ($char ne substr($res,$pos,1))) {
substr($res, $pos, 1, $char);
last;
}
if ( $back ) {
$pos--;
$back = 0 if $pos == 0;
} else {
$pos++;
$back = 1 if $pos == length($str);
}
sleep($delay);
}
}
|
Измени переменные настройки таким образом, как тебе больше нравится. Так же следует перед запуском данной программы установить модуль Time::HiRes, он необходим для реализации задержки меньше секунды. Если модуль установлен и ты под виндой, то можно ничего не менять, если же ты под другой осью, то обязательно измени переменную $clear, на команду очистки экрана в твоей оси.
Всю эту бодягу можно ещё здорово оптимизировать: обработать системный вызов, оптимизировать поиск и т.д. Я сейчас сижу над Java, голова совершенно другим забита, да и тебе пойдёт на пользу самостоятельная оптимизация. Но если что-то, конкретное, будет не понятно, спрашивай. Всегда поможем. |