sysvbannerでストループテスト

前回に引き続き、ストループテストです。
sysvbannerで作ってみます。

bannerで大きく表示する色と、エスケープシーケンスの色、２つ干渉させたストロープテストです。

takk@deb8:~$ cat -n s.pl
     1  @colors = split /,/,"RED,BLUE,YELLOW,GREEN,CYAN,PURPLE,WHITE";
     2  
     3  $rand_str = $colors[int rand 7];
     4  
     5  printf"\x1b[3%dm",1+int rand 7;
     6  open(IN,"banner $rand_str |");
     7  @out=<IN>;
     8  print " @out";
     9  print"\x1b[39m";
takk@deb8:~$ 

もう一つ干渉させる情報を増やしてみましょう。
バナーの中に文字を入れて、実際の色とバナーで作った文字とバナーの中の文字、３つの情報を一度に表示するスクリプトにします。

takk@deb8:~$ cat -n stroop.pl
     1  @colors = split /,/,"RED,BLUE,YELLOW,GREEN,CYAN,PURPLE,WHITE";
     2  
     3  $rand_str_large = $colors[int rand 7];
     4  $rand_str_small = $colors[int rand 7];
     5  
     6  @a=split//,$rand_str_small;
     7  
     8  printf"\x1b[3%dm",1+int rand 7;
     9  open(IN,"banner $rand_str_large |");
    10  while(<IN>){
    11      s/#/ch()/ge;
    12      print;
    13  }
    14  print"\x1b[39m";
    15  
    16  sub ch{
    17      push@a,$a[0];return shift @a
    18  }
takk@deb8:~$ 