Muti weKisimusi wemhuka: tora Krisimasi kune yako Linux koni

Kisimusi iri kuuya uye nayo vanga vachida kutiunzira iyi yakapusa Perl chirongwa chinogona kushongedza yako Linux terminal. Zvino unogona kuunza Kisimusi kune yako koni pamwe neino Kisimusi muti hupenyu hwatinogona kuona muLinux console. Kunyangwe kukosha kwayo kuri kwechokwadi, kuchiri kuda kuziva uye kune avo vanofarira kuyedza apa ini ndinotsanangura maitiro ekuzviita nhanho nhanho.

Ndinokutendai cyberciti.biz uye Vivek Gite yekodhi iyi, kuti muione, munofanira kuva yakaiswa Perl pane yedu system, kana iwe uchitova nayo, tinogona kuisa Acme :: POE :: Muti. Kuti tiite izvi, isu tinoshandisa iyo CPAN (Inonzwisisika Perl Archive Network) module uye ndokutanga neropafadzo, tinonyora yakapusa yekuraira mutsara.

perl -MCPAN -e 'install Acme::POE::Tree'

Kana tangova neizvi, tinogona ona muti wekisimusi mugoko nemirairo yakapusa:

perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'

Kana izvo zvaunoda iwe kuita izvi muti, unogona kugadzirisa kodhi yekodhi yePerl script uye woichengeta mune faira faira (semuenzaniso: christmas.pl) nezviri mukati:

#!/usr/bin/perl

use Acme::POE::Tree;

my $tree = Acme::POE::Tree->new(

{

star_delay =>1.5, #brillo durante 1.5segundos

light_delay => 2, #Centelleo de las luces por 2 segundos

run_for => 10, #Salir automáticamente tras 10 segundos de muestra

}

);

$tree->run();