首页 / 操作系统 / Linux / 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 PerlGif 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中国 荣誉推出本文永久更新链接地址