Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
use warnings;
...
            $data[0][$tuple], $data[1][$tuple], $data[2][$tuple], $dat
+a[3][$tuple], $status->[1];
    }
}

Select or download this

my $tuples = $query->execute_array(
    {   ArrayTupleStatus    => \my @tuple_status,
        ArrayTupleFetch     => sub { return shift @data; },
     },
    );