在perl中转置

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

# 定义一个矩阵
my @matrix = (
    [1, 2, 3],
    [4, 5, 6],
    [7, 8, 9]
);

# 获取矩阵的行数和列数
my $rows = scalar @matrix;
my $cols = scalar @{ $matrix[0] };

# 初始化转置矩阵
my @transpose;
for (my $i = 0; $i < $cols; $i++) {
    $transpose[$i] = [];
}

# 转置矩阵
for (my $i = 0; $i < $rows; $i++) {
    for (my $j = 0; $j < $cols; $j++) {
        $transpose[$j][$i] = $matrix[$i][$j];
    }
}

# 输出转置矩阵
for (my $i = 0; $i < $cols; $i++) {
    for (my $j = 0; $j < $rows; $j++) {
        print $transpose[$i][$j] . " ";
    }
    print "\n";
}