从 PERL 中的两个字符串创建 JSON 格式答案

【问题标题】：Create JSON format from two strings in PERL从 PERL 中的两个字符串创建 JSON 格式
【发布时间】：2014-11-27 21:47:57
【问题描述】：

我在 PERL 脚本中有两个如下字符串。

$labels = "firstname|lastname|email";

$values = 'krishna|mohan|some@gmail.com';

现在我想从这两个字符串构造一个 JSON fromat。我需要根据|（管道）符号拆分（分解）两个字符串并构造如下的JSON格式

{"firstname":"krishna","lastname":"mohan","email":"krishna@gmail.com"}

我怎样才能做到这一点？任何想法将不胜感激。

【问题讨论】：

@j{ split /\|/, $labels } = split /\|/, $values;

标签： json perl

【解决方案1】：

使用split“分解”字符串，根据结果构建哈希。然后，使用JSON 将其转换为 JSON：

#!/usr/bin/perl
use warnings;
use strict;

use JSON;

my $labels = 'firstname|lastname|email';
my $values = 'krishna|mohan|some@gmail.com'; # Doesn't work with double quotes!

my %hash;
@hash{ split /\|/, $labels } = split /\|/, $values;

print to_json(\%hash);

【讨论】：