perl - 使用可存储检索从文件中检索数组或字符串的基本问题

Question

问题很简单，但我似乎找不到：

我将 a 存储$string到 a $filename：

store [$tempstring], $filename2[$m];

然后我尝试检索它：

my $tempinput = retrieve ($filename2[$m]);

我相信我只是得到参考，而不是字符串？我可以使用命令将数据转换回原始字符串吗？

Answer 1

 my $ref = [ $tempstring ];

创建一个数组，分配$tempstring给它（将它放在第一个元素中），然后返回对该数组的引用。

因此，如果您想要返回字符串，则需要获取引用数组的第一个元素的值。

 $ref->[0]

---

如果你做了

 my $ref = \$tempstring;

而不是不必要地创建一个数组，你只需做

 $$ref

获取字符串。