linux - 用于对数组进行排序的 Perl 程序不起作用

Question

我是 Perl 编程的新手……我编写了一个简单的脚本来对数组中的数字进行排序，但该脚本没有按预期工作。请帮我解决一下这个。

#!/usr/bin/perl
print ("Enter the numbers...... Please enter a blank space at the end\n");
$input = <STDIN>;
chop ($input);
$a = 1;
until ( $input ==  "" )
{
   @array[$a-1] = $input ;
   $a++;
   $input = <STDIN>;
   chop ($input);
}
print ("@array\n");
$count = 1;
$y = 1;
while ( $count < @array ) 
{
   if ( $array[$y-1] > $array[$y] )
   {
      @array[$y-1,$y] = @array[$y,$y-1];
      $y++;
   }
   $count++;
}
print ("@array\n");

我得到：

Enter the numbers...... Please enter a blank space at the end
2
4
3

2 4 3
2 4 3

Answer 1

perl 调试器对于查看排序算法不工作的原因非常有用。我在调试器中启动了您的程序并输入了以下内容：

a 10 print "count -> $count ; y -> $y ; array -> @array\n"

输出是：

2 4 3
count -> 1 ; y -> 1 ; array -> 2 4 3
count -> 2 ; y -> 1 ; array -> 2 4 3
2 4 3

$y永远不会超过 1。永远不会比较 4 和 3。

Answer 2

http://codepad.org/LtVxt8zG

#!/usr/bin/perl
use strict;
use warnings;

$"=',';
my @input;
while(<DATA>)
{
   s/\s+$//;
   push @input, $_;
}
print "Original Input: @input\n";

@input = sort { $a <=> $b } @input;
print "Sorted Input: @input\n";

__END__
3
1
2