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

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

Answer 2

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永远不会被比较。

用于排序数组不工作的Perl程序

2 个答案: