# # (gH)   -_-  traiteListe2.pl  ;  TimeStamp (unix) : 04 Mars 2019 vers 13:59

use strict ;
use warnings FATAL => 'all';

# si pas de paramètre, rappel de la syntaxe et sortie

     if ($#ARGV == -1) {
        print "syntaxe : perl traiteListe2.pl NOM_DE_FICHIER\n" ;
        exit(1) ;
     } ; # fin si pas de paramètre

# si le paramètre est présent, on teste que c'est un fichier qui existe

my $listeFic = $ARGV[0]    ;
if (! -e $listeFic) {
   print "fichier $listeFic non vu.\n" ;
   exit(2) ;
} ; # finsi

# exécution normale du programme

open(LISTEFIC ,"<$listeFic") ;
my $nbFic = 0 ;
while (my $nomFichier = <LISTEFIC>) {
  chop($nomFichier) ;
  $nbFic++ ;
  if (!-e $nomFichier) {
    print "  ==> Fichier numéro $nbFic : $nomFichier non vu \n" ;
  } else {
    print "Traitement du fichier ".sprintf("%4d",$nbFic)." : $nomFichier \n" ;
  } ; # fin si
} ; # fin tant que
close(LISTEFIC) ;
