Linux/Unix 桌面趣事:终端上的圣诞树
2016-02-01 07:47
666 查看
给你的Linux或Unix控制台创造一棵圣诞树玩玩吧。在此之前,需要先安装一个Perl模块,命名为Acme::POE::Tree。这是一棵很喜庆的圣诞树,我已经在Linux、OSX和类Unix系统上验证过了。
示例输出:
示例输出
Gif 01: 一棵用Perl写的喜庆圣诞树
这样就可以通过修改stardelay、runfor和light_delay参数的值来自定义你的树了。一棵好玩的终端圣诞树就此诞生。
作者:Vivek Gite 译者:soooogreen 校对:wxy
安装 Acme::POE::Tree
安装perl模块最简单的办法就是使用CPAN(Perl综合典藏网(Comprehensive Perl Archive Network))。打开终端,把下面的指令敲进去便可安装Acme::POE::Tree。### 以root身份运行 ### perl -MCPAN -e 'install Acme::POE::Tree'
示例输出:
Installing /home/vivek/perl5/man/man3/POE::NFA.3pm Installing /home/vivek/perl5/man/man3/POE::Kernel.3pm Installing /home/vivek/perl5/man/man3/POE::Loop.3pm Installing /home/vivek/perl5/man/man3/POE::Resource.3pm Installing /home/vivek/perl5/man/man3/POE::Filter::Map.3pm Installing /home/vivek/perl5/man/man3/POE::Resource::SIDs.3pm Installing /home/vivek/perl5/man/man3/POE::Loop::IO_Poll.3pm Installing /home/vivek/perl5/man/man3/POE::Pipe::TwoWay.3pm Appending installation info to /home/vivek/perl5/lib/perl5/x86_64-linux-gnu-thread-multi/perllocal.pod RCAPUTO/POE-1.367.tar.gz /usr/bin/make install -- OK RCAPUTO/Acme-POE-Tree-1.022.tar.gz Has already been unwrapped into directory /home/vivek/.cpan/build/Acme-POE-Tree-1.022-uhlZUz RCAPUTO/Acme-POE-Tree-1.022.tar.gz Has already been prepared Running make for R/RC/RCAPUTO/Acme-POE-Tree-1.022.tar.gz cp lib/Acme/POE/Tree.pm blib/lib/Acme/POE/Tree.pm Manifying 1 pod document RCAPUTO/Acme-POE-Tree-1.022.tar.gz /usr/bin/make -- OK Running make test 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 t/01_basic.t .. ok All tests successful. Files=1, Tests=2, 6 wallclock secs ( 0.09 usr 0.03 sys + 0.53 cusr 0.06 csys = 0.71 CPU) Result: PASS RCAPUTO/Acme-POE-Tree-1.022.tar.gz Tests succeeded but one dependency not OK (Curses) RCAPUTO/Acme-POE-Tree-1.022.tar.gz [dependencies] -- NA
在Shell中显示圣诞树
只需要在终端上运行以下命令:perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'
示例输出
Gif 01: 一棵用Perl写的喜庆圣诞树
树的定制
以下是我的脚本文件tree.pl的内容:#!/usr/bin/perl use Acme::POE::Tree; my $tree = Acme::POE::Tree->new( { star_delay => 1.5, # shimmer star every 1.5 sec light_delay => 2, # twinkle lights every 2 sec run_for => 10, # automatically exit after 10 sec } ); $tree->run();
这样就可以通过修改stardelay、runfor和light_delay参数的值来自定义你的树了。一棵好玩的终端圣诞树就此诞生。
作者:Vivek Gite 译者:soooogreen 校对:wxy
相关文章推荐
- Linux学习笔记之yum安装mysql5.7
- linux 库 动态 静态 编译 混合 使用
- Install postgresql9.4 in CentOS 6.7
- Linux 开机提示kernel panic...解决方法
- Linux常用命令大全
- linux junit
- Linux 帐号管理
- Linux 0.11内核编译和bochs上的实验环境的搭建
- linux-0.11内核调试运行阅读环境的搭建及使用
- (OK) Linux epoll模型—socket epoll server client chat
- bochs+gdb源码级调试Linux 0.12内核测试环境构建
- bochs + gdb 调试linux0.11
- Linux用户空间与内核空间
- 在Linux下用C扩展PHP(打包成so)的方法
- CentOS 6 + bochs-2.6 + gdb 调试 linux 0.11 —— 成功
- Linux sed 高级用法实例
- CentOS 7编译rtlwifi_new失败——需要升级内核
- 红帽CEO:员工经常当面叫我笨蛋
- CentOS 6 bochs-2.6 gdb 调试 linux 0.11——bochsrc-fd1-gdb.bxrc
- (OK) 编译cBPM-CentOS7-codeblocks