有关perl的排序，给新同学借鉴！

给新同学。。。。

本帖最后由 zhlong8 于 2010-08-25 11:31 编辑

有问题想问把你代码贴上来了多谢包含
#!/usr/bin/perl
use strict;
use warnings;

my @array = (80,25,66,21,47,4,92,55,1114,58,68,23,11,32,2,2,2,34,5);
my $num = $_;
my $sum = $_;
my $i = $_;
my $avg = $_;

print "这是一个用perl排序的举例(包括计算总值和均值)\n\n";
print "对以下数字排序:\n\n@array\n\n";
print "Press <Enter> to continue... \n";
<STDIN>;

print "程序开始(从小到大)......\n\n";

foreach $num (sort{$a <=> $b}@array)   
{   
        print "$num ";
        $sum += $num;
        $i++
}

$avg = $sum/$i;

print "\n\n","Count:______\b\b\b\b",$i,"\n";
print "\n","Sum:_________\b\b\b\b\b\b",$sum,"\n";
printf "\nAverage:__________\b\b\b\b\b\b\b\b%.2f\n\n",$avg;

print "Press <Enter> to quit... ";
<STDIN>;


其中
my $num = $_;
my $sum = $_;
my $i = $_;
my $avg = $_;
这一列是做什么用的，$_这时包含的是什么值？还有下面输出那一堆\b有什么用？