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

[Invité]

le echo $DISPLAY me renvoie seulement :0 et ça ne marche pas.

[Beniou]

Là pour l'instant je ne vois pas mais voici peut être quelques pistes :

Est-ce que tu essayes de lancer le programme en local ou à distance ?

Est-ce que tu as essayé en mettant du style "hostname:0" où hostname est le nom de ton ordinateur en local ou à distance suivant les cas.

Est-ce que tu as plusieurs écrans/display ? (Auquel cas ce n'est pas forcément "0" qu'il faut mettre)

As-tu fais un test avec une autre application graphique ?

[Invité]

finalement mon script doit envoyer vers tty1. Donc j'utilise une appli qui afficher des images dans le framebuffer. J'utilise donc

Code :

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

`fbi -T 1 $path`

mais là aussi, rien.

EDIT : j'ajoute que si je fais

Code :

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

echo "bonjour" > /dev/tty1

le .pl ça ne marche pas et ça marche depuis le tty2.

En fait avec

Code :

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

echo "bonjour" > /dev/tty

ça marche depuis le script perl. Mais toujours pas avec l'application fbi. J'ai testé :

Code :

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

`fbi $path > /dev/tty`

et

Code :

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

`fbi $path > /dev/tty1`

sans résultats

[Beniou]

Question : est-ce que la commande suivante fonctionne en dehors de Perl si tu la lances directement depuis un shell ? Pas de problème de droits ??

fbi -T 1 ton_image