Архив ‘matrix’

Симулятор активной работы или Matrix — Just for fun

#!/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; # чем больше — тем дольше будет «вычисляться» строка

23 строки для понимания memory leak в perl

#!/usr/bin/perl -w use strict; use Term::ANSIColor; if (defined ($ARGV[0]) && $ARGV[0]!~/[0-9]+/){     print color 'reset';