#!/usr/bin/perl
#
# cop_diskette_dos.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;
[webinfo@webdev3 perl]$ cat cop_diskette_dos.pl
#!/usr/bin/perl
#
# cop_diskette_dos.pl : copie tous les fichiers d'une disquette DOS

# stocker la liste des fichiers d'une disquette DOS
@files = `dosdir | egrep -v "^(Free|There)"`;

foreach $f (@files) { # boucle sur les fichiers
   chop $f; # suppression du retour chariot
   $g = $f ;
   $g = ~tr/A-Z/a-z/;   # converion en minuscules

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

exit;
