# # (gH)   -_-  testefic.pl  ;  TimeStamp (unix) : 23 Février 2019 vers 23:12

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

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

if ($#ARGV == -1) {
   print "syntaxe : perl testefic.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 $nomFic = $ARGV[0]    ;
if (! -e $nomFic) {
  print "fichier $nomFic non vu.\n" ;
   exit(2) ;
} ; # finsi

print " Exécution normale du programme...\n" ;
