#!/serveur/dp/bin/perl -w


# -------------------------------------------------------------------
# Liste une base NDBM
#
# usage : listmap <nom map>
#
# Code retour :
#		0 : ok , sinon : erreur
#
# exemples :
#		listmap filtre_flex
#
# -------------------------------------------------------------------

use strict;
use AnyDBM_File;

my $base = shift(@ARGV) || die "usage : $0 <nom map>\n";
my %contenu;
my $max = 0;

tie(%contenu,'NDBM_File',$base,1,0)
	|| tie(%contenu,'NDBM_File',"$base.db",1,0)
	|| die "tie $base : $!\n";
for(sort keys %contenu) {
	$max = length($_) if(length($_)>$max);
}
for(sort keys %contenu) {
	printf "%-${max}s   %s\n",$_,$contenu{$_};
}
print "\n",scalar(keys %contenu)," enregistrements\n";
untie(%contenu) || die "untie $base : $!\n";

exit 0;

__END__
