私を参照するためには、 2次元配列の試みです
サブルーチンと、この1つを理解できそうもない Perlの。

誰でも知っていますか？私を啓発してください。

#!/usr/bin/perl -w

use constant DIM => 4;

sub Shift_elements_right{
    my (@Input, @Output) = @_;
    for ($i = 0 ; $i <= DIM ; $i++ ){
	$Output[$i + 1] = $Input[$i];
    }
    $Output[1] = $Input[DIM];
}


# Initialize
for ($i = 0; $i <= DIM; $i++){
    $weight[0][$i] = $i;
}

# Shift call
for ($i = 0; $i <= DIM; $i++){
    Shift_elements_right(\@weight[$i], \@weight[$i + 1]);
}

# Print output.
for ($i = 0; $i <= DIM; $i++){
    for ($j = 0; $j <= DIM; $j++){
	print "Weight $i : $weight[$i][$j]\t";
    }
    print "\n";
}

ちょっとやろうとしている場合の詳細については説明してもらえますか？

私はあなたが今やっているのを選ぶことができますが、なぜか分からない..場合は、どのような状況で、なぜ、それが我々 ..あなたを助けるお手伝いします説明

これは、実際には、より複雑なパスカルプログラム私です
午前に変換する Perlの。指定されたコードですが小さい
より大きなプログラムの例です。

パスカルは、プログラムのコードではこのようになります：

CONST DIM = 4;
TYPE Vector = ARRAY [1..DIM] of REAL;
weights: ARRAY[1..DIM] of Vector;

PROCEDURE Initialize;
	VAR I: INTEGER;

	BEGIN
	FOR I := 1 TO DIM DO
		weights[1][I] := I;
	END



PROCEDURE Shift_elements_right (Input : Vector;
				VAR Output: Vector);
	VAR I: INTEGER;
	
	BEGIN
	FOR I := 1 TO DIM DO
		Output[I+1] := Input[I];
	Ouptut[1] := Input[DIM];
	END

BEGIN
FOR I := 1 TO DIM DO
	Shift_elements_right(weights[I], weights[I+1]);
END;

次元配列は、次のようにもできる： 2つの初期化するには

@array1 = ('0', '0', '0', '0');
@array2 = ('0', '0', '0', '0');
@array3 = ('0', '0', '0', '0');
@array4 = ('0', '0', '0', '0');

@bigArray = (\@array1, \@array2, \@array3, \@array4);

@bigArray = ( ['0', '0', '0', '0'],
              ['0', '0', '0', '0'],
              ['0', '0', '0', '0'],
              ['0', '0', '0', '0']
);

$bigArray[0][0]; # first row, first column
$bigArray[2][1]; # third row, second column

$bigArray[2][1] = '5'

for ($i = 0; $i < DIM; $i++){
    for ($j = 0; $j < DIM; $j++){
        bigArray[$i][$j] = $j; #assuming $j is the value you want to store...
    }
}

次のコードを自分の問題を解決するようだ。

#!/usr/bin/perl -w

use constant DIM => 4;

sub Shift_elements_right{
    my ($ref) = shift;
    for($j = 1 ; $j <= DIM ; $j++){
	for ($i = 1 ; $i <= DIM ; $i++ ){
	    $ref->[$j + 1][$i + 1] = $ref->[$j][$i];
	}
    $ref->[$j + 1][1] = $ref->[$j][DIM];
    }
}


# Initialize
for ($i = 1; $i <= DIM; $i++){
	$weights[1][$i] = $i;
}

# Shift call
Shift_elements_right(\@weights);

# Print output.
for ($i = 1; $i <= DIM; $i++){
    for ($j = 1; $j <= DIM; $j++){
	print "Weight $i : $weights[$i][$j]\t";
    }
    print "\n";
}

あなたの場合、残しておく Perlの コードのように、元の、あなたは上記のように、この方法で物事を行うことができると考えている：