Linux/Unix 桌面趣事:终端上的圣诞树

给你的或Unix控制台创造一棵圣诞树玩玩吧。在此之前,需要先安装一个Perl模块,命名为Acme::POE::Tree。这是一棵很喜庆的圣诞树,我已经在、OSX和类Unix系统上验证过了。

udast

 

安装 Acme::POE::Tree

安装perl模块最简单的办法就是使用CPAN(Perl综合典藏网(Comprehensive Perl Archive Network))。打开终端,把下面的指令敲进去便可安装Acme::POE::Tree。

  1. ### 以root身份运行 ###
  2. perl -MCPAN -e 'install Acme::POE::Tree'

示例输出:

  1. Installing/home/vivek/perl5/man/man3/POE::NFA.3pm
  2. Installing/home/vivek/perl5/man/man3/POE::Kernel.3pm
  3. Installing/home/vivek/perl5/man/man3/POE::Loop.3pm
  4. Installing/home/vivek/perl5/man/man3/POE::Resource.3pm
  5. Installing/home/vivek/perl5/man/man3/POE::Filter::Map.3pm
  6. Installing/home/vivek/perl5/man/man3/POE::Resource::SIDs.3pm
  7. Installing/home/vivek/perl5/man/man3/POE::Loop::IO_Poll.3pm
  8. Installing/home/vivek/perl5/man/man3/POE::Pipe::TwoWay.3pm
  9. Appending installation info to /home/vivek/perl5/lib/perl5/x86_64--gnu-thread-multi/perllocal.pod
  10. RCAPUTO/POE-1.367.tar.gz
  11. /usr/bin/make install -- OK
  12. RCAPUTO/Acme-POE-Tree-1.022.tar.gz
  13. Has already been unwrapped into directory /home/vivek/.cpan/build/Acme-POE-Tree-1.022-uhlZUz
  14. RCAPUTO/Acme-POE-Tree-1.022.tar.gz
  15. Has already been prepared
  16. Runningmakefor R/RC/RCAPUTO/Acme-POE-Tree-1.022.tar.gz
  17. cp lib/Acme/POE/Tree.pm blib/lib/Acme/POE/Tree.pm
  18. Manifying1 pod document
  19. RCAPUTO/Acme-POE-Tree-1.022.tar.gz
  20. /usr/bin/make-- OK
  21. Runningmaketest
  22. PERL_DL_NONLAZY=1"/usr/bin/perl""-MExtUtils::Command::MM""-MTest::Harness""-e""undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
  23. t/01_basic.t .. ok
  24. All tests successful.
  25. Files=1, Tests=2, 6 wallclock secs ( 0.09 usr 0.03 sys + 0.53 cusr 0.06 csys = 0.71 CPU)
  26. Result: PASS
  27. RCAPUTO/Acme-POE-Tree-1.022.tar.gz
  28. Tests succeeded but one dependency not OK (Curses)
  29. RCAPUTO/Acme-POE-Tree-1.022.tar.gz
  30. [dependencies] -- NA

 

在Shell中显示圣诞树

只需要在终端上运行以下命令:

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

示例输出

Gif 01: An animated christmas tree in Perl

Gif 01: An animated christmas tree in Perl

Gif 01: 一棵用Perl写的喜庆圣诞树

 

树的定制

以下是我的脚本文件tree.pl的内容:

  1. #!/usr/bin/perl
  2. useAcme::POE::Tree;
  3. my $tree =Acme::POE::Tree->new(
  4. {
  5. star_delay =>1.5,# shimmer star every 1.5 sec
  6. light_delay =>2,# twinkle lights every 2 sec
  7. run_for =>10,# automatically exit after 10 sec
  8. }
  9. );
  10. $tree->run();

这样就可以通过修改stardelay、runfor和light_delay参数的值来自定义你的树了。一棵好玩的终端圣诞树就此诞生。


via:

作者:Vivek Gite 译者:

本文由 荣誉推出

转载自:https://www.linuxidc.com/Linux/2016-02/128081.htm

声明: 除非转自他站(如有侵权,请联系处理)外,本文采用 BY-NC-SA 协议进行授权 | 智乐兔
转载请注明:转自《Linux/Unix 桌面趣事:终端上的圣诞树
本文地址:https://www.zhiletu.com/archives-5863.html
关注公众号:智乐兔

赞赏

wechat pay微信赞赏alipay pay支付宝赞赏

上一篇
下一篇

相关文章

在线留言

你必须 登录后 才能留言!

在线客服
在线客服 X

售前: 点击这里给我发消息
售后: 点击这里给我发消息

智乐兔官微