O'Reilly logo

Programmieren mit Perl by Jon Orwant, Tom Christiansen, Larry Wall

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

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. ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required