appel d'un .jar à partir d'un script perl

Bonsoir à tous,
comment je peux exécuter la ligne suivante: java -Dfile.encoding=UTF-8 -jar FarasaSegmenter.jar -l true <text1.txt > out1.txt à l'aide d'un script perl ?
j'ai essayé avec ce script mais je n'obtient aucun résultat...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

use constant FICHIER_RESULAT => '/home/lenovo/Bureau/FarasaTool/out3.txt';   open my $fh_resultat, '>:utf8', FICHIER_RESULAT;   my $fh1= 'text2.txt';       my @args = ('java','-Dfile.encoding=UTF-8','-jar','/home/lenovo/Bureau/FarasaTool/FarasaSegmenter.jar','-l','true', $fh1,$fh_resultat); system(@args); foreach my $val( @args) {print $fh_resultat "$val\n";}

---

Bonsoir Ftina,

si tu lances une commande système lançant un programme Java, tu ne peux pas lui passer des file handles Perl. Ou du moins pas de la manière dont tu le fais.

Tu peux en principe récupérer dans le programme Perl ce que le programme Java affiche normalement à l'écran (à condition toutefois que la sortie du programme Java ne soit pas trop volumineuse), mais pas avec l'instruction system, qui ne récupère que le code sortie du programme.

La solution la plus simple est de passer l'ensemble de ta commande shell à system. Par exemple, quelque chose dans ce genre:

Code:

---

1 2 3 4 5

use constant FICHIER_RESULAT => '/home/lenovo/Bureau/FarasaTool/out3.txt'; my $file = 'text2.txt'; my @args = ('java','-Dfile.encoding=UTF-8','-jar','/home/lenovo/Bureau/FarasaTool/FarasaSegmenter.jar','-l','true', "$file", '> out1.txt'); system(@args);

---

Ou, si tu veux retraiter le résultat en Perl, utiliser les backticks (accent graves) pour récupérer en Perl les données produites par le programme Java et les retraiter avant de les imprimer. Quelque chose dans ce style:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

my $fichier = 'text2.txt';   my $command = "java -Dfile.encoding=UTF-8 -jar FarasaSegmenter.jar -l true $fichier"; my @resultat = `$command`;   # retraitement éventuel du résultat récupéré dans le tableau @resultat.   my $fic_resultat = '/home/lenovo/Bureau/FarasaTool/out3.txt'; open my $FH_OUT, '>:utf8', $fic_resultat or die "Ouverture impossible du fichier $fic_resultat $!"; foreach my $val (@resultat) { print $FH_OUT "$val"; # pas besoin en principe d'ajouter \n, il y en a déjà un dans ce qu'a produit le programme Java } close $FH_OUT;

---

Mais cette deuxième solution n'a vraiment un intérêt que si tu veux retraiter en Perl le résultat du programme Java avant de l'imprimer dans le fichier résultat.

NB: n'ayant ni les données en entrée, ni le programme Java, je n'ai évidemment pas pu tester les deux bouts de code ci-dessus, j'espère n'avoir rien oublié.

merci lolo je veux tester moi même , merci beaucoup :)