Discussion :

[zerros]

Bonjour,

Tout d'abord je m'excuse, j'ai posté ce message dans la mauvaise rubrique (à la racine du forum perl) avant de le reposter ici. Encore désolé :s

Je suis en train de faire un script qui aura pour seule fonction de trouver un numéro d'input (lié à un périphérique USB) au démarrage de l'ordinateur. Une fois ce numéro trouvé, je dois créer un variable d'environnement contenant le numéro de l'input.

Pour la détection de l'input, pas de souci. Par contre comment puis-je créer la variable via mon script perl dans le but qu'elle soit disponible à une application qui va venir récupérer son contenu après le démarrage du PC ?

Voilà mon script (egalax représente en réalité un écran tactile 7 pouces connecté en USB) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
 
open (FILE,"/proc/bus/input/devices");
my @content = <FILE>;
close (FILE);
 
for (my $i=0; $i<@content; $i++) {
        chomp $content[$i];
        if ($content[$i] =~ /eGalax/) {
                chomp $content[$i+4];
                my @tmp = split(" ",$content[$i+4]);
                if ($tmp[2] =~ /(\d)/) {
                        my $id = $1;
                        print "$id\n";
                } 
        }
}

une idée ?

[Jedai]

Appelle le script dans le bashrc et utilise son résultat dans un export (c'est plus une question linux que Perl en fait).

--
Jedaï

[zerros]

euh ... si je mets dans bashrc, il me semble que tant qu'une session utilisateur n'est pas ouverte, alors bashrc n'est pas exécutée non ?

Il faudrait que cette variable s'initialise au démarrage de linux :s

[Jedai]

C'est une question Linux, et la réponse n'est pas exactement la même selon ta distribution, je te déplace sous le bon forum.

--
Jedaï

[zerros]

Problème résolu. Merci Jedai.