반응형
Perl에서 단순 해시를 json으로 변환하는 방법
다음 코드를 사용하여 간단한 해시를 인코딩하고 있습니다.
use JSON;
my $name = "test";
my $type = "A";
my $data = "1.1.1.1";
my $ttl = 84600;
@rec_hash = ('name'=>$name, 'type'=>$type,'data'=>$data,'ttl'=>$ttl);
다만, 다음의 에러가 표시됩니다.
hash- or arrayref expected <not a simple scalar, use allow_nonref to allow this>
코드에는 중요한 청크가 없는 것 같기 때문에, 부족한 비트를 추가해(여기에서는 몇 가지 추측을 실시합니다) 처리 상황을 수정합니다.
누락된 보일러 플레이트를 추가합니다.
#!/usr/bin/perl
use strict;
use warnings;
use JSON;
my $name = "test";
my $type = "A";
my $data = "1.1.1.1";
my $ttl = 84600;
해시를 배열이 아닌 해시로 만들고 현지화하는 것을 잊지 마십시오.my %
my %rec_hash = ('name'=>$name, 'type'=>$type,'data'=>$data,'ttl'=>$ttl);
실제 사용encode_json
method(hashref라고 부릅니다):
my $json = encode_json \%rec_hash;
결과를 출력합니다.
print $json;
그리고 그것은 내가 예상했던 대로 오류 없이 작동합니다.
해라%rec_hash = ...
대신. @
목록/배열을 나타냅니다.%
해시를 나타냅니다.
언급URL : https://stackoverflow.com/questions/8463919/how-to-convert-a-simple-hash-to-json-in-perl
반응형
'programing' 카테고리의 다른 글
json을 C# 어레이로 변환하시겠습니까? (0) | 2023.03.18 |
---|---|
Angular를 사용하는 글로벌 Ajax 오류 처리기JS (0) | 2023.03.18 |
spring @Valid Validation 기본 오류 메시지를 커스터마이즈하려면 어떻게 해야 하나요? (0) | 2023.03.18 |
ReactJs - "If" 구성 요소 생성 중...좋은 생각? (0) | 2023.03.18 |
JSON을 XML로 변환하거나 XML을 JSON으로 변환하는 방법 (0) | 2023.03.18 |