On Sun, Feb 01, 2009 at 02:50:01PM -0800, Ben Pfaff wrote:
Finally, I was working on a script to dump out a system file as
text. Here's what I have so far. It works, in that it dumps the
cases, but it segfaults after it reads the last one:
#! /usr/bin/perl
use PSPP;
use strict;
use warnings;
my $reader = PSPP::Reader->open ($ARGV[0]);
while (my @case = @{$reader->get_next_case ()}) {
print join (',', @case), "\n";
}
Writing the loop slightly differently, works around this problem:
while (my $case = $reader->get_next_case ())
{
print join (',', @$case), "\n";
}
--
PGP Public key ID: 1024D/2DE827B3
fingerprint = 8797 A26D 0854 2EAB 0285 A290 8A67 719C 2DE8 27B3
See http://pgp.mit.edu or any PGP keyserver for public key.
signature.asc
Description: Digital signature
_______________________________________________ pspp-dev mailing list [email protected] http://lists.gnu.org/mailman/listinfo/pspp-dev
