FW: [MacPerl] DB_File and odd behaivor

["Paul Schaap" <paul_schaap@yes.optus.com.au>]

Mark,

I get the same behaviour on my internal IDE (HFS format), however it doesn't occur on my second internal SCSI drive (HFS+ format). On another G3 with a 2.9Gb HFS+ partition it works perfectly. Im guessing here but I think this problem would occur on any >2Gb HFS partitioned disk. Maybe its time to go HFS+ ??

REGARDS
Paul
_______________________________________________________________________________
From: Mark Meyer on Sat, 13 Jun 1998 4:36 AM
Subject: [MacPerl] DB_File and odd behaivor
To: mac-perl@iis.ee.ethz.ch

Hello,
I've been getting some strange results using the DB_file module abd was
wondering if was just me or if others are having this problem.  My scripts
are being very inconsistent when trying to print out the tied variables.As
a test for my sanity this I tried running the example from the DB_file
documentation:

 use strict ;
    use DB_File ;
    use vars qw( %h $k $v ) ;

    tie %h, "DB_File", "fruit", O_RDWR|O_CREAT, 0640, $DB_HASH
        or die "Cannot open file 'fruit': $!\n";

    # Add a few key/value pairs to the file
    $h{"apple"} = "red" ;
    $h{"orange"} = "orange" ;
    $h{"banana"} = "yellow" ;
    $h{"tomato"} = "red" ;

    # Check for existence of a key
    print "Banana Exists\n\n" if $h{"banana"} ;

    # Delete a key/value pair.
    delete $h{"apple"} ;

    # print the contents of the file
    while (($k, $v) = each %h)
      { print "$k -> $v\n" }

    untie %h ;

here is the output(according to the docementation):

    Banana Exists

    orange -> orange
    tomato -> red
    banana -> yellow

My Output however was simply:

Banana Exists


Any ideas?
I noticed threads in the archives for this list concerning DB_File and th
G3. I am on a G3 if that makes any difference.

Mark

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch