perl - 在 perl 中以 $number/t$q/t$a 格式格式化文本文件

Question

我正在尝试格式化文本文件，以便它索引问题的数量。我到目前为止的代码是：

my %questions = map { split(/\t/, $_, 2) } @qa_list;

这会正确地将数据格式化为问题/答案列表，并由选项卡分隔。但是，我无法弄清楚如何修改它以便对问题进行编号。我正在考虑在其中嵌套另一个 split() 或 map，但我最终得到了无法工作且难以阅读的复杂表达式。

编辑：回应第一条评论

目前的输出是这样的：

Question1\tAnswer1
Question2\tAnswer2
Question3\tAnswer3

但我希望它是：

1    Question1\tAnswer1
2    Question2\tAnswer2
3    Question3\tAnswer3

Answer 1

你想要一个包含

Question 1<tab>Answer 1
Question 2<tab>Answer 2
...

并打印出来

1<tab>Question 1<tab>Answer 1
2<tab>Question 2<tab>Answer 2
...

所以这只是一个将数组索引加一和一个制表符添加到前面的问题。

print "$_\t$qa_list[$_-1]\n" for 1..@qa_list;

Answer 2

最简单的：

my $count = 1;             # start index at 1
for (@qa_list) {
    print $count++,        # increase counter
          "\t$_\n";        # join with tab end with newline
}

Answer 3

ikegami 的答案有一个错误，您可以使用它来修复printf

printf "%s\t%s\n", $_+1, $qa_list[$_] for 0..$#qa_list;

或者

print ($_+1)."\t$qa_list[$_]\n" for 0..$#qa_list;