hr in Perl

March 7, 2014 @ 04:57 PM

熟悉 HTML 的朋友想必都知道 <hr /> 这个标签的用途是绘制 一条水平线。hr 则是适用于终端的 <hr />。它将根据用户 输入的字符在终端中绘制水平线，默认是 # 符号，其长度跟 终端窗口的大小一样。例如：

$ hr #
##################################

$ hr '*'
**********************************

$ hr - '#' -
----------------------------------
##################################
----------------------------------

$ hr '-#-' '-' '-#-'
-#--#--#--#--#--#--#--#--#--#--#--
----------------------------------
-#--#--#--#--#--#--#--#--#--#--#--

hr 的原作者 LuRsT 是使用 Bash 编写的，只是为了好玩，我用 Perl 重新实现了一个版本。hr 的其他语言实现还包括 JavaScript、 Python、Ruby、Haskell 等等。

Related Posts