#!/usr/bin/perl
#
# cop_diskette_dos2.pl : copie tous les fichiers d'une disquette DOS
# Version plus concise

# stocker la liste des fichiers d'une disquette DOS


foreach (`dosdir | egrep -v "^(Free|Total)"`) { # boucle sur les fichiers
   chop ; # suppression du retour chariot
   y/A-Z/a-z/;   # converion en minuscules

   print $f," * ",$g,"\n";
   system""dosread -a -v $_ ./$_");
   }

exit;
