diff --git a/IRC3sp/IRC3sp.pl b/IRC3sp/IRC3sp.pl index 12b26c7..98c744e 100755 --- a/IRC3sp/IRC3sp.pl +++ b/IRC3sp/IRC3sp.pl @@ -16,10 +16,9 @@ my $usage = "Usage : \n" . " $programme -t table -r répertoire [ -e extension ]* [ -s fichier_sortie ] [ -l log ] [ -cq ]\n" . " $programme -t table -f fichier_entrée [ -s fichier_sortie ] [ -l log ] [ -cq ]\n" . - " $programme -t table [ -l log ] [ -cq ]\n" . " $programme -h\n\n"; -my $version = "1.3.1"; +my $version = "1.3.2"; my $dateModif = "12 Mars 2019"; my @table = (); @@ -95,6 +94,8 @@ # Vérification de la présence des options obligatoires usage(2) if not $table; +usage(2) if not $fichier and not $repertoire; +usage(2) if $fichier and $repertoire; if ( $log ) { open(LOG, ">:utf8", "$log") or die "$!,"; @@ -254,9 +255,6 @@ traite("$repertoire/$fichier"); } } -else { - traite('-'); - } nettoye();