我有以下子程序： sub my_sub {
my $coderef = shift;
$coderef->();
}
sub coderef {
my $a = shift;
my $b = shift;
print $a+$b;
}
，並要撥打my_sub(\coderef($a,$b))以這種方式，即我想提供與它的代碼裁判的爭
我以表格形式從文件中獲取輸出。 這是file.txt的外觀。假設它的一個4 * 4矩陣 1 2 3 4
a b c d
e f g h
i j k l
現在我想獲取表中的特定元素說第二行和第三列。我正在使用下面的代碼，但我沒有得到輸出。 我將表存儲在一個數組中，並將其引用。 open(FH, "file.txt);
@Table = <FH>;
close FH;
$ref = \