#!/usr/bin/perl -w use strict; use Term::ANSIColor; use Time::HiRes qw[usleep]; if(defined($ARGV[0]) && $ARGV[0]!~/^\d+$/){ print color ‘reset’; exit; } my $num = 2000; # сколько раз крутить my $strlen = 20; # длина строки my $length = 10000; # чем больше — тем дольше будет «вычисляться» строка $num = $ARGV[0] if $ARGV[0] =~ /^\d+$/; $strlen = $ARGV[1] […]

#!/usr/bin/perl -w use strict; use Term::ANSIColor; if(defined($ARGV[0]) && $ARGV[0]!~/[0-9]+/){     print color ‘reset’;     exit; } my $num = 2; my $strlen = 2; $num = $ARGV[0] if $ARGV[0]=~/[0-9]+/; $strlen = $ARGV[1] if $ARGV[1]=~/[0-9]+/; print color ‘green’; for(0..$num){     print ${getStr()}."\n"; } print color ‘reset’; sub getStr{     my $string = […]