Hallo,
ich habe lange(!) kein perl mehr programmiert, aber das Einlesen mit "slurp mode" sollte doch ein wenig schneller sein als die String-Konkatenierun in der while-Schleife.
Probier bitte mal
#!/usr/bin/perl
use strict;
use warnings;
use JSON ();
my $json;
{
open my $fh, '<:utf8', 'selfwiki.bin';
local $/;
$json = <$fh>;
close $fh;
}
my $data = JSON->new()->decode($json);
print "done\n";
Viele Grüße Matti