pdl语言描述冒泡排序

PDL语言描述冒泡排序的代码如下:

# 冒泡排序函数
sub bubble_sort {
  my $array = shift;
  my $len = @$array;
  for my $i (0..$len-2) {
    for my $j ($i+1..$len-1) {
      if ($array->[$i] > $array->[$j]) { 
        ($array->[$i], $array->[$j]) = ($array->[$j], $array->[$i]);
      }
    }
  }
}

# 测试冒泡排序函数
my @arr = (9, 1, 5, 8, 3, 7, 4, 6, 2);
bubble_sort(\@arr);
print "@arr\n";  # 输出结果：1 2 3 4 5 6 7 8 9

以上是PDL语言描述冒泡排序的简单示例代码。