Daten mit JSON permant speichern (gelöst) - #157935 (Allgemeines zu Perl)

Kuerbis

2012-04-29 09:58

User since
2011-03-20
938 Artikel
BenutzerIn
[default_avatar]

Hallo,

wenn ich mit JSON solche Werte

Code: (dl )

key_1 => [ 2, 5, 6, 8, 11 ]

speichern möchte, würde man das üblicherweise so machen:
zuerst alles einlesen (eine Zeile), die neuen Werte hinzufügen und dann wieder in die Datei zurückschreiben (in eine Zeile)?

Code (perl): (dl )

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

my $history = 'history.json';

open my $fh, '<', $history or die $!;
    my $utf8_encoded_json_text = readline $fh;
    my $hashref = decode_json $utf8_encoded_json_text;
close $fh;

$hashref->{key_1} = [ 2, 3, 6, 11 ];

open $fh, '>', $history or die $!;
    $utf8_encoded_json_text = encode_json $hashref;
    print $fh $utf8_encoded_json_text;
close $fh;