|
|
Zapo4vam napravo s primer
dbmopen(%DBASE, "tempfile", 0666) or die "Can`t open DBM: $!\n";
cyrcle();
dbmclose %DBASE;
sub cyrcle {
sleep 3;
while (($key, $val) = (each %DBASE)) {
print "$key $val\n";
}
}
Zna4i kakto vijdate tova e cikyl koito 4ete ot nai-obiknovena baza danni,
nqma zna4enie kak sym go napravil.Vyprosyt e 4e kogato dopylnq tazi syshtata DBM ot drugo mqsto dokato cikylyt e v deistvie tozi syshtiqt cikyl ne "vijda" novite danni.Toest vse edno ne e dobavqno kym DBM-to.Zabelqzva gi edinstveno ako sloja funkciqta dbmopen to4no predi cikyla while i dbmclose vednaga sled kato svyrshi while.Kajete mi kak bez da se zatvarq %DBASE da mogat da se 4etat promenite vyv bazata po vsqko vreme ili me opytete kym nqkoi drug vid DB zashtoto ne sym mnogo zapoznat s tqh no trqbva da e neshto prosto kato DBM-to.
Regards
|
| |
|
|
|