是否可以在Perl foreach循环中为数组中的两个变量分配相同的数据？
我使用Perl 5,我想我在Perl 6中遇到了一些东西.
像这样的东西:
my $var1;
my $var2;
foreach $var1,$var2 (@array){...}
我有一个数组，其中包含某些元素在某些条件下相似的元素（如果我们从数组元素中检测到“ n和p ”，则可以识别相似的元素）。我想在使用 foreach 语句时立即使用这些类似的元素。该数组如下所示
my @array = qw(abc_n abc_p gg_n gg_p munday_n_xy munday_p_xy soc_n soc_p);
数组元素的顺序不必总是这样。
我正在再次编辑这个问题。抱歉，如果我无法正确提出问题。我必须使用上面数组中存在的变量在文件中多次打印字符串。我只是想让你通过下面的代码理解这个问题，下面的代码在任何意义上都是不正确的......我只是用它来让你理解我的问题。
open (FILE, ">" , "test.v");
foreach my $xy (@array){
print FILE "DUF A1 (.pin1($1), .pin2($2));" ; // $1 And $2 is just used to explain that
} // i just want to print abc_n and abc_p in one iteration of foreach loop and followed by other pairs in successive loops respectively
close (FILE);
我要打印的结果如下：
DUF A1 ( .pin1(abc_n), .pin2(abc_p)); …