or 字符串替换:perl -e "grep {print ' 'x(10-$_),'*'x($_*2+1),chr(10) } (0..10) " * *** ***** ******* ********* *********** ************* *************** ***************** ******************* ********************* :perl -e "$s='*'; for (0..10) {print ' 'x(10-$_),$s,chr(10); $s.='**'}" * *** ***** ******* ********* *********** ************* *************** ***************** ******************* *********************
Code: [show] | [select all]