感谢支持
我们一直在努力

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

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

 

安装 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-linux-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: http://www.cyberciti.biz/open-source/command-line-hacks/linux-unix-desktop-fun-christmas-tree-for-your-terminal/

作者:Vivek Gite 译者:soooogreen 校对:wxy

本文由 LCTT 原创编译,Linux中国 荣誉推出

本文永久更新链接地址:http://www.linuxidc.com/Linux/2016-02/128080.htm

赞(0) 打赏
转载请注明出处:服务器评测 » Linux/Unix 桌面趣事:终端上的圣诞树
分享到: 更多 (0)

听说打赏我的人,都进福布斯排行榜啦!

支付宝扫一扫打赏

微信扫一扫打赏