virtusetable.db

[Jan Redl]

On Mon, 16 Aug 1999, Petr Novotny wrote:

> > Mam drobny problem. Omylem jsem si vymazal obsah virtusertable a
> > potreboval bych ji dostat zpet z virtusertable.db.
> >  Poradi nekdo?
> 
> V perlu by mel byt modul pro praci s formatem .db. Zkuste se na 
> nej mrknout. (Omlouvam se, ze rada neni navodnejsi - ja sam jsem 
> s nim nikdy nedelal.)


Mel by na to stacit nasledujici skriptik:


#!/usr/bin/perl

use NDBM_File;

$dbfile='/etc/mail/virtusertable' ;

    opendb_read;                                                                
    foreach $key (sort(keys(%db))) {                                            
        print "$key\t", $db{$key}, "\n";                                        
    }                                                                           

sub opendb_read {                                                               
    tie(%db, "NDBM_File", $dbfile, O_RDONLY, 0) ||\                             
        die "Can't open $dbfile";                                               
}

--
                                                   Jan Redl
                                                 Czech On Line