perl - 将逗号分隔的值转换为键值对 Perl
问题描述
我有一个格式的状态数组
('AL','Alabama','AK','Alaska','AR','Arkansas'...)
我想格式化为:
[{'AL' => 'Alabama'},...]
这主要是为了让我可以更轻松地循环使用 HTML::Template 模块 ( https://metacpan.org/pod/HTML::Template#TMPL_LOOP )
我对 perl 还很陌生,所以不确定如何执行这种操作,也找不到足够相似的东西。
解决方案
use List::Util 1.29;
@state_hashes = List::Util::pairmap { +{ $a => $b } } @states;
推荐阅读
- python - 在 CUPS 中出现错误“页面设置信息无效。” 从 python 脚本打印图像
- java - Java var 类型推断泛型参数类型
- swiftui - 重置路径描边动画
- xml - 如何揭示复杂 XML 的结构
- python - 我收到错误会话未创建:Selenium Edge WebDriver 未找到匹配功能
- reactjs - Material-UI 如何在 MenuItem 中使用 forwardRef
- javascript - 如何比较两个数组并删除、更新数组的元素
- android - 程序类型已经存在:androidx.core.internal.package-info
- webdatarocks - 如何比较新列中的列
- c++ - 如何将 CRTP 中的模板派生类与派生类表达式模板结合起来?