bash - 实时修改shell stdout

Question

好吧，请耐心等待，因为我不是专业人士，这是一个概念验证项目，用于了解更多关于我的 shell、编程和基本 bash 脚本的信息。

所以我想做的是:每当我的终端打印出任何东西时，无论是命令的结果还是来自 shell 的错误消息，我想对正在显示的内容应用一些“过滤器”，例如如果我在终端中输入“ls -a”，我想获取命令返回的文件夹列表，但对字符应用 TIME DELAY，这样看起来列表是实时输入的。

更具体地说，我希望脚本获取 STDOUT 中的每个字母数字字符，并花费特定时间(比如 100 毫秒)遍历随机字符(这些可以从列表中随机访问)，然后最终停止在字符的原始值。

我所知道的:不多，我是一般编程的新手，所以也是 bash 语言，但我可以阅读一些代码并浏览我发现这个 http://brettterpstra.com/2012/09/15/matrixish-a-bash-script-with-no-practical-application/与 tput 一起玩的脚本。这向我展示了我想要实现的视觉效果是可以实现的……现在让它有序地、单独地发生在打印到 STDOUT 的每个字符上……这是我想不通的。

我的想法:在我看来，我知道我可以使用 STDOUT 并将其通过管道传输到一个文件，通过任何语言(比如 python!)我可以进行各种字符串操作，然后将输出返回到 STDOUT，但我想要字符实时操作，所以如果代码是

cool_chars="£ ｱ ｲ ｳ ｴ ｵ ｶ ｷ ｸ ｹ ｺ ｻ ｼ ｽ " 
stdout=whatever module works to grab STDOUT from shell as string
stdout = stdout.split(" ")
for word in stdout:
    for letter in word:
       n=0
       while (n<10):
            #print the following iteration in real time @ shell but how????
            print random.choice(cool_chars)
            #finally stop at correct character
            print letter
            n++

无论如何，我已经阅读了一些关于 curses 和 ncurses 的内容，以及如何使用任何指定的参数创建新窗口，我想知道这是否只是使用 curses 库和指定参数创建一个终端的问题然后建立一个链接，以便每个新的终端实例都打开我修改过的 curses shell，或者如果我可以只做一个 bash shell 脚本，或者使用 python 之类的东西最简单。我知道以上所有都可以选择，但我正在寻找最简单但不一定是最节省资源的答案。

感谢任何帮助、评论、指点等。

Answer 1

这并没有完全回答你的问题，但它确实打印了任何输入，就好像它是实时输入的一样:

perl -MTime::HiRes -F -ane '$|=1;$old=""; foreach $char(@F){Time::HiRes::sleep(0.1); print "\r${old}${char}"; $old.=$char}' /etc/hosts

可以使用 STDIN 代替文件:

echo -e "abc\ndef\nghi" | perl -MTime::HiRes -F -ane '$|=1;$old=""; foreach $char(@F){Time::HiRes::sleep(0.1); print "\r${old}${char}"; $old.=$char}'

我们可以使用 shell 的 sleep 来缩短它:

perl -F -ane '$|=1;$old=""; foreach $char(@F){`sleep 0.1`; print "\r${old}${char}"; $old.=$char}'

---

编辑:

下面的脚本应该可以完全解决您的问题:

#!/usr/bin/perl
use strict;
use utf8; 

binmode(STDOUT, ":utf8");

our $cols=`tput cols`;
our $|=1;
our $cursor="";

sub reset_line {
    print "\r" . " "x$cols . "\r";
}

sub pick_cursor {
    my @c = split (//,"£ｱｲｳｴｵｶｷｸｹｺｻｼｽ");
    $cursor=$c[int(rand(1+@c))];
}


while (<>) {
    my $line="";
    my @a=split //;
    foreach my $char (@a) {
        `sleep 0.1`;
        reset_line;
        pick_cursor;
        if ( $char eq "\n" || $char =~ /\s/) {
            print "${line}${char}";
        }else {
            print "${line}${char}${cursor}";
        }
        $line .= $char;     
    }
}