Speichern und Lesen, hash und array in Dateien in Perl

Du suchst Daten serialisieren. Populäre Wahlen, die robust sind Sereal, JSON::XS und YAML::XS. Weniger bekannte Formate sind: ASN.1, Avro, BERT, BSON, CBOR, JSYNC, MessagePack, Protocol Buffers, Sparsamkeit.

Anderen oft genannten Entscheidungen sind Lagerfähig und Data::Dumper (oder ähnlich)/eval, aber empfehlen kann ich Sie, weil Speicherbare format ist die Perl-version abhängig, und eval ist unsicher, da Sie es führt von beliebigem code. Als 2012 die parsing-Zähler-Teil Daten::Undump noch nicht sehr weit Fortgeschritten ist, noch. Ich kann auch nicht empfehlen die Verwendung von XML, weil es nicht anzeigen Perl-Datentypen gut, und es gibt mehrere konkurrierende/inkompatible Schemata, wie Sie übersetzen zwischen XML-und Daten.

Code-Beispiele (getestet):

use JSON::XS qw(encode_json decode_json);
use File::Slurp qw(read_file write_file);
my %hash;
{
    my $json = encode_json \%hash;
    write_file('dump.json', { binmode => ':raw' }, $json);
}
{
    my $json = read_file('dump.json', { binmode => ':raw' });
    %hash = %{ decode_json $json };
}

use YAML::XS qw(Load Dump);
use File::Slurp qw(read_file write_file);
my %hash;
{
    my $yaml = Dump \%hash;
    write_file('dump.yml', { binmode => ':raw' }, $yaml);
}
{
    my $yaml = read_file('dump.yml', { binmode => ':raw' });
    %hash = %{ Load $yaml };
}

Den nächsten Schritt von hier ist object persistence.

Lesen Sie auch: Serialisierungsprogramme für Perl: Wann verwendet man was

Diese wirklich hängt davon ab, wie Sie möchten, speichern Sie die Daten in Ihrer Datei. Ich werde versuchen, schriftlich einige grundlegende perl-code zu aktivieren, Sie zu Lesen, eine Datei in ein array und oder zurück schreiben einen hash in einer Datei.

#Load a file into a hash.
#My Text file has the following format.
#field1=value1
#field2=value2  
#<FILE1> is an opens a sample txt file in read-only mode.
my %hash;
while (<FILE1>)
{
  chomp;
  my ($key, $val) = split /=/;
  $hash{$key} .= exists $hash{$key} ? ",$val" : $val;
}