perl打印炫酷的等边三角形
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了perl打印炫酷的等边三角形相关的知识，希望对你有一定的参考价值。
看到首页上推荐《十分钟完成Bash脚本进阶！列举Bash的经典用法及其案例》
http://os.51cto.com/art/201709/552109.htm
然后用perl写了一个等边三角形的命令，参数是行数
perl -e ‘for (1..$ARGV[0]){$c=int(rand(7))+31;print " "x($ARGV[0]-$_),"\e[1;${c};5m*"x($_*2-1),"\e[0m\n"}‘ 5
以上是关于perl打印炫酷的等边三角形的主要内容，如果未能解决你的问题，请参考以下文章