develooper Front page | perl.perl5.porters | Postings from March 2016

[perl #127743] Storable loses information on large strings

Thread Next
From:
James E Keenan via RT
Date:
March 25, 2016 12:53
Subject:
[perl #127743] Storable loses information on large strings
Message ID:
rt-4.0.18-17803-1458910374-1787.127743-15-0@perl.org
On Fri Mar 18 13:05:34 2016, jkeenan wrote:
> [Originally reported in
> http://www.nntp.perl.org/group/perl.perl5.porters/2016/03/msg235167.html
> -- jkeenan]
> 
> Hi,
> 
> My Perl version is v5.20.1 for x86_64-Linux. When I used Sortable to
> store
> an array of large strings, the retrieved array would lost information
> of
> strings longer than 1,699,160,188 bytes.
> 
> For example:
> $genome_string is about 1,500,000,000 bytes long.
> $order is 4 times longer than $genome_string.
> 
> foreach my $i(750615880 .. 75061589){
>     my $num = vec($order,$i,32);
>     my $char = substr($genome_string,$i,1);
>     print "before: $i: $char $num\n";
> }
> my $global_index = [$genome_string,$order];
> store $global_index, "./test.s";
> my $test_index = retrieve("./test.s");
> foreach my $i(750615880 .. 75061589){
>     my $num = vec($$test_index[1],$i,32);
>     my $char = substr($$test_index[0],$i,1);
>     print "after: $i: $char $num\n";
> }
> The output looks like this:
> before: 750615880: G 1243519261
> before: 750615881: T 26652294
> before: 750615882: A 938865154
> before: 750615883: T 199336229
> before: 750615884: G 1488701234
> before: 750615885: T 255130577
> before: 750615886: T 600771191
> before: 750615887: C 440286230
> before: 750615888: T 1249264699
> before: 750615889: G 1360065150
> after: 750615880: G 0
> after: 750615881: T 0
> after: 750615882: A 0
> after: 750615883: T 0
> after: 750615884: G 0
> after: 750615885: T 0
> after: 750615886: T 0
> after: 750615887: C 0
> after: 750615888: T 0
> after: 750615889: G 0
> 
> Thanks,
> Zong

Does anyone on list have a machine with enough memory to explore this bug report?

Thank you very much.

-- 
James E Keenan (jkeenan@cpan.org)

---
via perlbug:  queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=127743

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About