一个perl脚本

Posted 志芯

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了一个perl脚本相关的知识,希望对你有一定的参考价值。

脚本:

#!/usr/bin/perl -w

        

@alpha=( 'A' .. 'Z', 'a' .. 'z' , '1' .. '26') ;

$number = @alpha  ;

print "$number  "  ;

print "@alpha  "  ;


$a = 0 ;

while ($a < $number) {

print "@alpha[$a] = @alpha[$a]  " ;

$a = $a +1 ;

}


执行结果:

一个perl脚本

一个perl脚本

一个perl脚本

一个perl脚本


以上是关于一个perl脚本的主要内容,如果未能解决你的问题,请参考以下文章