use lib "/home/info/gh/Bin/Perl_lib" ;
use XBase;

$nomBase = "vins.dbf" ;
$table = new XBase $nomBase or die XBase->errstr;
$nbr = $table->last_record ;

print " il y a  ".(1+$nbr)." enregistrements dans la base $nomBase\n" ;
for (0 .. $nbr) {
    print sprintf("%5d. ",1+$_) ;
    @enrc = $table->get_record($_) ;
    $ndc = -1 ;
    foreach $ch (@enrc) {
       $ndc++ ;
       if ($ndc>0) { print "$ch " ; }
    } ; # fin pour chaque champ
    print "\n" ;
} ; # fin pour enregistrement
