mehrere db_files gleichzeitig öffnen geht nicht ?

[Erwin]

Ahoi

ich würde gerne mehrere DB_FILEs öffnen:

__CODE__

my $db = tie %HASH1, "DB_File", $file1, O_CREAT | O_RDONLY, 0644 or die "Can't open db_file: $!\n";
    my $fd  = $db->fd();
    open DATAFILE, "+<&=$fd" or die "Fehler beim sicheren Öffnen: $!\n";
    flock(DATAFILE, LOCK_EX ) or die "Konnte Lock nicht bekommen: $!";

Tipp: Lies mal "The Trouble with fd" in der Perldoc.

Gruss, Erwin