Perl에서 데이터를 JSON 형식으로 변환합니다.

Question

데이터가 json으로 변환되는 데 문제가 있으며 그 이유를 모르겠습니다. 나는, 너무 '객체'를 만들고 (JSON 통해) TEXTFILE에 데이터를 저장

#constructor 
sub new { 
    my $class = shift; 
    my $Titel = shift; 
    my $Text = shift; 
    my $Time = localtime; 
    my $self = {}; 

    $self->{text} = $Text; 
    $self->{create} = $Time; 
    $self->{edit} = $Time; 

    my $json = JSON::XS->new(); 

    open WF, '>> $file' || die "Error : $!"; 
    print WF $json->encode($self)."\n"; 
    close WF; 

    bless $self, $class; 
} 

: 여기

작동 일부 코드이다.

sub edit { 
my $self = shift; 
my $Text = shift; 
my $ID = shift; 
my $Time = localtime; 
my $json = JSON::XS->new(); 
$json->allow_blessed(1); 

$self->{text} = $Text; #edit text 
$self->{edit} = $Time; # edit date 

open INPUT, '< $file' || die "Error : $!"; 
my @data = <INPUT>; 
close(INPUT); 

open WF, '> $file' || die "Error : $!"; 

for (my $Count=0; $Count<=$#data; $Count++){ 
    chomp($data[$Count]); 

    if($Count == $ID){#if line of data found, who is going to be edited 
     print WF $json->encode($self)."\n"; 
    }else{ 
     print WF $data[$Count]."\n"; 
    } 
} 

close WF; 
} 

내가 뭘하려고하는 것은 당신이 더 나은 아이디어가있는 경우 (있습니다 .. TEXTFILE에서 하나 개의 행을 편집하는 것입니다, 저를 보여주십시오 : 나는 몇 가지 데이터를 편집하려고하면

나는, 문제가 : D) 내가 코드 내 절차 사이의 차이를 볼

가 먼저 표시하고 그냥 다시 TEXTFILE에 "널 (null)"글을 하나 ....

... 그

어떤 아이디어가?

Answer 1

저는 JSON 전문가는 아니지만 encode 메서드는 축복받은 참조에 문제가 있습니다. 그러나 나는 결국 펄입니다 (당신에게 다른 솔루션을 제공, 문제가 축복 참조입니다 (이미 발견으로) 나는 두 번째 개념

if($Count == $ID){#if line of data found, who is going to be edited 
    print WF $json->encode({%$self})."\n"; 
... 

Answer 2

: 은혜를 입지 못한 참조를 사용하여 올바른 해결 방법처럼 보인다 TIMTOWTDI). Acme::Damn 모듈을 사용하면 객체를 언 브레스 (unbless) (즉, 망할) 수 있습니다. 따라서 당신은 할 수 있어야 :이 방법은 너무 영리 이름 때문에

print WF $json->encode(damn($self))."\n"; 

이 또한 내가, 내가 공유했다 느꼈다.

Answer 3

마지막 폭도의 제안에 이어 축복받은 참조를 직렬화하는 간단한 예제가 있습니다.

package Node; 

sub new { 
    my $class = shift; 
    bless { @_ }, $class; 
} 

sub TO_JSON { 
    my $self = shift; 
    return { class => 'Node', data => { %$self } }; 
} 

package main; 

use JSON; 

my $node_hash = { 
    a => [ 'text1', 'text2' ], 
    b => [ 'what', 'is', 'this' ], 
    c => [ Node->new(some => 'data') ], 
}; 

print to_json($node_hash, { convert_blessed => 1 }); 

그러나 디코딩에주의해야합니다. 완전한 왕복을 구현하기 위해 filter_json_single_key_object을 사용할 수 있습니다.