列優先の行列を作成する

列優先の行列を作成してみましょう。

use strict;
use warnings;

# 列優先の行列の作成
sub mat_new {
  my ($values, $rows_length, $columns_length) = @_;
  
  my $mat = {
    rows_length => $rows_length,
    columns_length => $columns_length,
    values => $values,
  };
  
  return $mat;
}

# 3行2列の列優先の行列を作成
# 1 4
# 2 5
# 3 6

my $mat = mat_new([1, 2, 3, 4, 5, 6], 3, 2);

use Data::Dumper;
print Dumper $mat;
Perlテキスト処理のエッセンス
  • 初級者向け・テキスト処理と正規表現の基本をマスター
業務に役立つPerl
  • 実務者向け・ログ解析など日本語を含むテキスト処理の実践!
Perlクラブ
  • 仲間と出会い
    ゆとりあるエンジニアライフを送る