[ale] OT: perl dbm files?

Robert L. Harris nomad at rnd-consulting.com
Thu Nov 18 23:18:03 EST 1999


Ok,
  The DBM's are looking ok, but I got a weird one...  I have this fragment:

----------------------------------------------------
    foreach $Directory (@DoDirs) {
      print "  \$Directory :$Directory:\n" if ($Verbose eq "T");
      unlink($DB);
      umask(0377);
      $DB="$Directory"."/"."$DBFile";
      print "  \$DB :$DB:\n" if ($Verbose eq "T");
      tie(%KnownGood, 'DB_File', $DB) or die "Can't open DB_File $DB : $!\n";

      %KnownGood=&GetDirStats($Directory);

      print "  Print File:\n" if ($Verbose eq "T");
      foreach $Key (keys %KnownGood) {
        print "    \$KnownGood{$Key} :$KnownGood{$Key}:\n" if ($Verbose eq "T");
      }

      untie(%KnownGood);
    }
----------------------------------------------------

The print of the HASH looks good, but it doesn't even create $DB and
it doesn't die.  Thoughts?

Robert


---------------------------------------------------------------------------
Robert L. Harris                |   "A person is smart;
Senior System Engineer          |        People are dumb, panicky
  R&D Consulting.               \_            dangerous animals"  - Agent K  


http://www.rnd-consulting.com/~nomad

DISCLAIMER:
      These are MY OPINIONS ALONE.  I speak for no-one else.

FYI:
 perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);'






More information about the Ale mailing list