#!/usr/bin/perl -w $|=1;$ARGV[0] ||=unpack'u', qq|:2G5S=%]!;F]T:&5R7T)U8F)L95]";&]W97(`|; $v=qq|Oo'`. | ;$l=length ($ARGV[0]);$b=' 'x$l;do { if (int(rand 5)> 1) { $r=int( rand($l))}else {$r='' }; $bbl{$r}=0 unless($bbl{$r}||$r eq'' );map {substr ($b, $_+sin(($_ +$bbl{$_})),1,substr($v,$bbl{$_},1))}keys %bbl; map { $bbl{$_} >=length($v)? delete $bbl{$_}:$bbl{$_}++} keys %bbl;print qq |$b \n$ARGV[0]\r|;$b=' 'x$l;sleep 1;}until($SIG{INT});
In reply to JABB by submersible_toaster
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |