Perl 语言实战

Posted 2021-04-17 Genetic evolution

一个极其简单的Perl打印三角形的案例，实现案例如图所示：

简介的代码如下：

#！/usr/bin/perl -wprint"please input your number:\n";$k=<STDIN>;if($k%2==0){for(1..$k/2){$i=" "x(($k/2)-$_);$j="A"x($_);$m="T"x($_);print"$i$j$m\n";}}else{print"please input even number.\n ";}                                                                  

      如果用其他编程语言打印出这个三角形虽然很简单，但是不简洁，比如C语言可能需要三层循环，其他语言类似。适合生信人士用。