一个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脚本的主要内容，如果未能解决你的问题，请参考以下文章