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

转载于:https://blog.51cto.com/liuyuan/1967199