从嵌入式 Perl 脚本返回多个值

Question

我在 C 程序中嵌入了一个 Perl 脚本。我想从 Perl 脚本返回一个整数数组。但是，要返回的整数数量n 是程序的输入，不能在 Perl 脚本中硬编码。有没有办法做到这一点？以下是几个例子：

示例 1（在 PERL 子程序中 n 已知且等于 2）：

@num = {1, 2, 3, 4};
($num[0], $num[1]); // works, returns the two values 

示例 2（n 未知）：

@num = {1, 2, 3, 4}; 
(@num); // does not work

示例 3（n 未知）：

@num = {1, 2, 3, 4};
$string = "($num[0], $num[1], $num[2], $num[3])";
$string; // does not work

Answer 1

注意，{ } 用于 HASH 引用。我想你只需要：

my @num = qw/1 2 3 4/;
@num;

或

my @num = (1, 2, 3, 4);
@num;

或

my @num = (1..4);
@num;

或使用数组参考：

my $num = [1, 2, 3, 4];
@$num;