Discussion :

[Invité]

Hello ! Comment lancer une application depuis un script Perl (sur le serveur). Par exemple si je veux lancer VLC ?
Juste un test bidon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use warnings;
use CGI::Carp qw (fatalsToBrowser);
use CGI;
print "Content-type: text/html\n\n";
my $buffer =  new CGI;
my $name  = $buffer->param("name");
if ($name eq ""){
	system `vlc`;
}
else{
	print $name;
}

[Beniou]

bonjour,


Tu peux regarder dans les FAQs de Perl où sont décrites les méthodes principales d'appel à une commande/programme externe.

Dans ton exemple, tu utilises "system" avec les backquotes ce qui n'est pas bon. Utilises soit l'un soit l'autre soit une des autres méthodes suivant tes besoins (récupérer sortie, fork pour créer un autre process etc.)

[Invité]

D'accord donc pas de problème, ça se lance bien, mais par contre, comme c'est une application graphique, j'aimerai utiliser X pour l'afficher, et là je ne vois vraiment pas comment faire.

[Beniou]

Veux-tu simplement lancer une application graphique ? auquel cas je ne vois pas trop le problème ...

[Invité]

Oui je veux utiliser une appli graphique, mais elle ne se lance pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
use utf8;
use CGI::Carp qw (fatalsToBrowser);
use CGI;
print "Content-type: text/html\n\n";
my $buffer =  new CGI;
my $photo  = $buffer->param("donnees");
my $path = "../images/".$photo;
my $sortie;
$sortie = `gpicview $path`;
print $sortie;

option parsing failed: Impossible d'ouvrir l'affichage*:

[Beniou]

Cette erreur ne vient pas de Perl mais de ton programme gpicview.

Tu pourrais essayer de rajouter l'option "--display" à ta ligne de commande pour voir si cela change quelque chose.

Exemple à adapter en fonction de ton affichage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$sortie = `gpicview --display=":0.0" $path`;

Cela fonctionne chez moi avec l'affichage :0.0 que j'ai obtenu en notant le résultat de la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
echo $DISPLAY

A toi de voir quoi mettre pour ton cas