diff --git a/harvestCorpus.pl b/harvestCorpus.pl index 2fa84f8..63eebfa 100755 --- a/harvestCorpus.pl +++ b/harvestCorpus.pl @@ -19,13 +19,14 @@ my ($programme) = $0 =~ m|^(?:.*/)?(.+)|; my $substitut = " " x length($programme); -my $usage = "Usage : \n $programme -q 'requête' [ -a | -emt [,]* ]\n" . +my $usage = "Usage : \n" . + " $programme -q 'requête' [ -a | -emt [,]* ]\n" . " $substitut [ -d destination ] [ -n [notices.txt]] [ -p préfixe ] [ -s fichier.corpus ] \n" . " $substitut [ -l nombre ] [ -r [nombre]] [ -iv ] [ -j jeton ]\n" . " $programme -c fichier.corpus ( -a | -emt [,]* ) \n" . " $substitut [ -d destination ] [ -n [notices.txt]] [ -p préfixe ] [ -l nombre ] \n" . " $substitut [ -j jeton ]\n" . - " $programme -h\n\n"; + " $programme -h \n\n"; my $version = "4.2.3"; my $dateModif = "6 Mars 2018"; @@ -77,14 +78,14 @@ $SIG{__WARN__} = sub {warn $_[0];}; if ( $aide ) { - print "\nProgramme : \n \"$programme\", version $version ($dateModif)\n"; + print "\nProgramme : \n “$programme”, version $version ($dateModif)\n"; print " Permet de décharger un corpus de fichiers textes (PDF, TEI, TXT), de fichiers de \n"; print " métadonnées (JSON, Mods, XML) ou de fichiers d’enrichissement depuis la base ISTEX \n"; print " à partir d’une requête ou d’un fichier “.corpus”. Permet également de renommer les \n"; print " fichiers déchargés et de générer un fichier de notices bibliographiques. \n"; print " \n"; print $usage; - print "Options :\n"; + print "Options : \n"; print " -a télécharge tous les fichiers correspondants aux documents\n"; print " -c utilise le fichier “fichier.corpus” comme source d’identifiants pour télécharger \n"; print " les documents (incompatible avec les options “-r” et “-s”)\n";