# verk-skoda.pl
# Verkefni í námskeiği um vefforritun 2001
# Skoğa færslur í lykluğum gagnagrunni
# Gagnagrunnseiningar:
use SDBM_File;
use Fcntl;
# Stilla gagnagrunnsskrá:
$skra = "verkefni/dbskra";
# Tengjast skrá
tie( %gogn, "SDBM_File", $skra, O_RDWR | O_CREAT | O_BINARY, 0666 )
or die( "Gagnagrunnsvilla: $!" );
# Senda tíl baka vefsíğu meğ fæeslunum úr grunninum:
print <<"UPPHAF";
Content-type: text/html
MIME-version: 1.0
<HTML>
<BODY onclick="history.go(-1)">
<H1>Færslur í gagnagrunninum:</H1>
UPPHAF
foreach $lykill (keys %gogn){
print "Lykill: $lykill <br>";
print "Upplıs: $gogn{$lykill} <p>";
}
print "<H2>Smelliğ á vefsíğuna til ağ fara til baka</h2></BODY></HTML>";
# Loka gagnagrunni
untie( %gogn );