diff --git a/harvestCorpus.pl b/harvestCorpus.pl index 7767606..ab6497e 100755 --- a/harvestCorpus.pl +++ b/harvestCorpus.pl @@ -29,8 +29,8 @@ " $substitut [ -f nombre ] [ -j jeton ] [ -z [gzip|bzip2]]\n" . " $programme -h \n\n"; -my $version = "4.6.2"; -my $dateModif = "7 Juin 2019"; +my $version = "4.6.3"; +my $dateModif = "29 Juillet 2019"; # Variables my $aide = 0; @@ -238,7 +238,7 @@ } elsif ( $prefixe !~ /^[A-Za-z](\w*-)?\w+\z/ ) { $prefixe = "f"; - print STDERR "Attention : préfixe non-conforme ⇒ utilisation de la valeur par défaut.\n"; + print STDERR "Attention : préfixe non-conforme ⇒ utilisation de la valeur par défaut.\n"; } } else { @@ -560,7 +560,10 @@ } elsif ( $corpus ) { - return if $rien; + if ( $rien ) { + print STDERR "Attention : vous devez indiquer au moins un type de fichier !\n\n"; + usage(18); + } my $ark = ""; my $id = "";