Re: Strange memory growth

Try this

if (   defined $cg->{'mainsnak'}
    && defined $cg->{'mainsnak'}->{'datavalue'}
    && defined $cg->{'mainsnak'}->{'datavalue'}->{'value'}
    && defined $cg->{'mainsnak'}->{'datavalue'}->{'value'}->{'notexist
+'}) {}
[download]

see http://search.cpan.org/~vpit/autovivification-0.18/lib/autovivification.pm

Comment on Re: Strange memory growth Download Code

Replies are listed 'Best First'.

Re^2: Strange memory growth
by spica1001 (Initiate) on Feb 19, 2018 at 14:58 UTC

Thanks all for the excellent responses. To answer the various suggestions and questions:

Yes, I posted the exact script that I'm running. Perl version 5.22.1, Ubuntu 16.04.

Trying huck's or ikagami's suggestions didn't change things, unfortunately.

Running on the same line repeatedly shows no memory growth, which I can't explain. It's thus possible it's only certain lines of the input file that cause the problem but I'm struggling to see how to identify which.

Thus it's difficult for me to post data on which I see the problem. The file I'm reading in is the Wikidata data dump (33GB bzipped) https://dumps.wikimedia.org/wikidatawiki/20180201/wikidatawiki-20180201-pages-articles.xml.bz2 (I usually read it in with IO::Uncompress::Bunzip2 but verified that the issue still occurs when unzipped by taking the first 2GB of that file unzipped)

I'll work on trying to get Data::Diver working and identify problematic lines of the input file.

[reply]
[d/l]
[select]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks