Programmieren mit Perl

DB_File

use DB_File;

Bindet einen Hash an eine DBM-Datei:

tie(%hash, "DB_File", $filename)    # Datenbank öffnen.
    or die "Can't open $filename: $!";

$v = $hash{"key"};                  # Aus der Datenbank lesen.
$hash{"key"} = "value";             # In die Datenbank schreiben.
untie %hash;

Bindung eines Hashs an eine B-Tree-Datei, der Zugriff erfolgt wie bei einem normalen DBM-Hash:

tie(%hash, "DB_File", "mytree", O_RCWR|O_CREAT, 0666, $DB_BTREE)
    or die "Kann 'mytree' nicht öffnen: $!";

while (($k, $v) = each %hash) {     # Inorder-Durchlauf.
     print "$k => $v\n";
}

Bindung eines Arrays an eine normale Textdatei:

tie(@lines, "DB_File", $textfile, 0_RCWR|0_CREAT, 0666, $DB_RECNO) or die "Kann $textfile nicht öffnen: $!"; # Einige Zeilen in die Datei schreiben, alten Inhalt überschreiben. ...