Perl

Utiliser une variable d'un script dans un autre script

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Utiliser une variable d'un script dans un autre script

duedos

Bonjour tout le monde.Je suis débutant en perl, et je suis confronté à un problème que mes différentes recherches n'ont pas résolu.
Voila, je souhaiterais savoir comment on peut utiliser dans un script une variable utilisée dans le script précédent. Je vous fais suivre mes deux scripts :

secret.pl :

Code :

#!/usr/bin/perl
use DBI;
use Asterisk::AGI;
use strict;
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
$AGI->exec('Playback','/usr/share/asterisk/sounds/fr/vm-login');
my ($num) = $AGI->get_data('/usr/share/asterisk/sounds/beep',2000,2);
my $dbh = DBI->connect("DBI:mysql:asterisk","*****","*****" );
my $verif = $dbh->prepare("select num from messages where num=$num" );
$verif -> execute();
if ($num = $verif ->fetchrow)
{
my $mess = $dbh->prepare("select message from messages where num=$num" );
$mess -> execute();
my $message = $mess->fetchrow;
$AGI -> verbose("modification de $mess\n",1);
$AGI -> verbose("modification de $message\n",1);
$AGI -> exec('Playback',"fr/$message" );
$AGI -> exec('Playback','fr/dir-instr');
$AGI -> set_priority(3);
}
else
{
$AGI -> exec('Playback','/usr/share/asterisk/sounds/fr/conf-errormenu');
$AGI ->set_priority(2);
}

verif_secret.pl :

Code :

#!/usr/bin/perl
use DBI;
use Asterisk::AGI;
use strict;
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my $verif = $AGI->get_data('beep',2000,1);
if ($verif =~ m/1/)
{
$AGI->exec('Playback','fr/vm-rec-temp');
$AGI->exec('Playback','beep');
$AGI->exec('Record',"/usr/share/asterisk/sounds/fr/$message:gsm" );
$AGI->exec('Wait',2);
$AGI->exec('Playback',"/usr/share/asterisk/sounds/fr/$message" );
}
else
{
$AGI->set_priority(2);
}

J'utilise en fait le module AGI du logiciel Asterisk, mais mon problème vient bien de perl.
Ce que je souhaite faire à l'aide de ces deux scripts, est la modification d'un message vocal.
Pour
cela, la personne appelant selectionne le message par le numero
l'identifiant dans la base de données. On récupère son nom dans '$mess' puis dans '$message'. Le passage à verif_secret.pl
sert à vérifier que ce message est bien celui à modifier, puis à
réenregistrer le message en conservant le même nom, c'est à dire la
chaîne de caractères '$message'. J'ai donc besoin de récupérer cette variable, issue de secret.pl, dans verif_secret.pl.
J'espère avoir été suffisamment clair.
Merci d'avance pour toute aide éventuelle.

Message cité 1 fois
Message édité par duedos le 12-09-2006 à 10:37:27

Publicité

Elmoricq

Modérateur

Et Dieu inventa le retour chariot.

Aricoh

gentil mais fo po pousser

duedos a écrit :

Voila, je souhaiterais savoir comment on peut utiliser dans un script une variable utilisée dans le script précédent. Je vous fais suivre mes deux scripts :

Il faut pour cela que ton premier script exécute le second en fournissant lors de l'exécution les variables en paramètres.

Exemple :

Code :

# 1er script devant envoyer en argv $mess et $message au second programme
# en fin de code du 1er script :
system("perl monscript2.pl $mess $message" );
# début du 2è script
my ($mess, $message) = ($ARGV[0], $ARGV[1]);

NOTE 1 : la fonction system employée dans mon exemple fait que le script 1 va lancer le script 2 puis reprendra la main lorsque le script 2 se sera terminé. Utilise exec à la place de system si tu veux que le script 1 passe la main au script 2 en s'arrêtant immédiatement.

NOTE 2 : autre possibilité, écrire dans un fichier .conf, .ini ou tout ce que tu veux le contenu des variables que tu souhaites utiliser avec le script 2. Ce dernier n'aura qu'à lire ce fichier, en récupérer le contenu et se mettre à bosser.

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

duedos

Je vais essayer dans un premier temps cette première méthode puis j'essaierai la seconde si ca ne marche pas. Si tu pouvais m'expliquer un peu plus en détail comment faire, ce serait très sympa car je ne suis vraiment pas très habile en informatique engénéral et en programmation en particulier.

Aricoh

gentil mais fo po pousser

En admettant que tes 2 scripts perl sont localisés au même endroit ET que tu les lances manuellement.

secret.pl :

Code :

#!/usr/bin/perl
use DBI;
use Asterisk::AGI;
use strict;
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
$AGI->exec('Playback','/usr/share/asterisk/sounds/fr/vm-login');
my ($num) = $AGI->get_data('/usr/share/asterisk/sounds/beep',2000,2);
my $dbh = DBI->connect("DBI:mysql:asterisk","root","czame" );
my $verif = $dbh->prepare("select num from messages where num=$num" );
$verif -> execute();
if ($num = $verif ->fetchrow)
{
my $mess = $dbh->prepare("select message from messages where num=$num" );
$mess -> execute();
my $message = $mess->fetchrow;
$AGI -> verbose("modification de $mess\n",1);
$AGI -> verbose("modification de $message\n",1);
$AGI -> exec('Playback',"fr/$message" );
$AGI -> exec('Playback','fr/dir-instr');
$AGI -> set_priority(3);
}
else
{
$AGI -> exec('Playback','/usr/share/asterisk/sounds/fr/conf-errormenu');
$AGI ->set_priority(2);
}
########### RAJOUT ##############
open(TRACE, ">message.conf" ) or die("création message.conf erreur : $!\n" );
print TRACE "$mess|$message";
close(TRACE);

verif_secret.pl :

Code :

#!/usr/bin/perl
use DBI;
use Asterisk::AGI;
use strict;
########### RAJOUT ##############
my $mess;
my $message;
open(TRACE, "message.conf" ) or die("lecture message.conf erreur : $!\n" );
$_ = <TRACE>;
close(TRACE);
($mess, $message) = split(/\\|/, $_);
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my $verif = $AGI->get_data('beep',2000,1);
if ($verif =~ m/1/)
{
$AGI->exec('Playback','fr/vm-rec-temp');
$AGI->exec('Playback','beep');
$AGI->exec('Record',"/usr/share/asterisk/sounds/fr/$message:gsm" );
$AGI->exec('Wait',2);
$AGI->exec('Playback',"/usr/share/asterisk/sounds/fr/$message" );
}
else
{
$AGI->set_priority(2);
}

L'exemple montré est la solution par fichier annexe (solution 2 de mon explication précédente).

Message édité par Aricoh le 25-07-2006 à 10:24:11

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

duedos

Merci Aricoh, tu es magique. Sans mauvais jeu de mots au passage...
Sans rire, cela faisait un moment que je galérais à cause de ce problème, et maintenant grâce à toi tout fonctionne.
Je ne saurais comment te remercier. Tu as déjà toute ma gratitude.
Merci encore
:jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap:

Message édité par duedos le 25-07-2006 à 11:04:00

Aricoh

gentil mais fo po pousser

de rien :jap:

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

FORUM HardWare.fr

Programmation

Perl

Utiliser une variable d'un script dans un autre script

Sujets relatifs
nombre dans une BDD vers variable	Passer une variable de php dans une requête sql
problème de boucle/session : envoi de doublons en nombre variable ?!	Accès à une valeur de formulaire par l'intermédiaire d'une variable
Bloquer un script pour attendre la fin des traitements	creation variable automatique
Espace utiliser dans ma boite mail.	[Perl] générer une variable grace à une chaine
utiliser un Hook dans un programme wxWidgets	VBA Excel : utiliser une Locale spécifique dans une macro
Plus de sujets relatifs à : Utiliser une variable d'un script dans un autre script

Page générée en 0.105 secondes