Discussion :

[vince2005]

Re-Bonjour,

J'ai un autre souci. A partir de mon programme1, je passe des variables en paramétres. Et je veux que ces variables soient reprisent dans un autre programme (2).

Ce programme2 prend le resultat de ces variables dans un tableau et récupére les valeurs , donc :
-d patrick.dupond\@toto.com
-o test valeur

le probléme est le suivant, pour le second programme, il décompose le resulat de la variable ""-o test valeur" en "-o test" puis "valeur".

Comment puis je lui faire comprendre que "-o test valeur" est bien une et une seule variable.

merci d'avance

ps : toutes la variables n'ont pas été déclaré!!! mais dans le script, elle existe

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
#prog1:
my ($param1, $param2) = ("-d patrick.dupond\@toto.com", "-o test valeur");
system ("$sous_prog2 $param1 $param2");
 
#sous_prog2:
 
#  Recupere et controle la variable pour la passer dans les paramétres
#======================================================
 
@Tableau= (@ARGV,"Fin");
while ( $#Tableau gt 0 )
{
	#-----------------------------------------------------
	if ( $Tableau[0] eq "-d" || $Tableau[0] eq "-D" )
		{	$Destinataire=$Tableau[1];	
			splice (@Tableau,0,2);
			next ;	}
	#-----------------------------------------------------
	if ( $Tableau[0] eq "-o" || $Tableau[0] eq "-O" )
		{	$Objet=$Tableau[1];	
			splice (@Tableau,0,2);	
			next ;	}
	#-----------------------------------------------------
	if ( $Tableau[0] eq "-t" || $Tableau[0] eq "-T" )
		{	$FicText=$Tableau[1];	
			splice (@Tableau,0,2);	
			next ;	}
	#-----------------------------------------------------
	if ( $Tableau[0] eq "-t" || $Tableau[0] eq "-T" )
		{	$FicText=$Tableau[1];	
			splice (@Tableau,0,2);	
			next ;	}
	#-----------------------------------------------------
	if ( $Tableau[0] eq "-p" || $Tableau[0] eq "-P" )
		{	$FicPJ=$Tableau[1];
			splice (@Tableau,0,2);
			next ;	}
	#-----------------------------------------------------
	print "Erreur d'utilisation parametre : $Tableau[0] \n";
	fct_what;
	exit -1;
	#-----------------------------------------------------
}

[Jedai]

Ceci n'est pas géré par Perl mais par le shell (ou alors en employant la forme à plusieurs arguments de system() ou exec() ) :

Code :

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

1
2
3
 
my ($param1, $param2) = ('-d patrick.dupond@toto.com', '-o "test valeur"');
system ("$sous_prog2 $param1 $param2");

ou :

Code :

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

1
2
 
system($sous_prog2, '-d', 'patrick.dupond@toto.com', '-o', 'test valeur');

--
Jedaï

[Nickname]

pourquoi tu ne fais pas :

Code :

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

1
2
3
4
5
6
 
if (@argv<2) {
echo "Usage: $_ blabla bleble\n";
}
@truc = ARGV[0];
@truc1 = [ARGV[1];

et tu fais pointer @truc et @truc1 a ce que tu veux.

Sinon j'ai deja vu des trucs de ce genre :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
$host=$argv[1];
$path=$argv[2];
$user=$argv[3];
$pass=$argv[4];
$port=80;
$prefix="...";
$id="2";
$discl=0;
$proxy="";
for ($i=3; $i<=$argc-1; $i++){
$temp=$argv[$i][0].$argv[$i][1];
if ($temp=="-p")
{
  $port=str_replace("-p","",$argv[$i]);
}
if ($temp=="-P")
{
  $proxy=str_replace("-P","",$argv[$i]);
}
if ($temp=="-T")
{
  $prefix=str_replace("-T","",$argv[$i]);
}
if ($temp=="-u")
{
  $user_id=str_replace("-u","",$argv[$i]);
}
if ($temp=="-x")
{
  $discl=1;
}
}

Enfin je sais pas si c'est exactement ce que tu demandes

++

[Jedai]

Ce n'est pas du Perl...
En plus en Perl, on ferais plutôt ça :

Code :

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

1
2
3
4
5
6
7
8
 
#! /usr/bin/perl
 
use strict;
use Getopt::Std;
 
my %options;
getopt('dotp', \%options);

--
Jedaï

[Nickname]

arf yep j'etais entrain de matter un script php j'ai pas fais gaff lool

Sorry

En tout cas good le module GetOpt::Std

[Jedai]

En tout cas good le module GetOpt::Std

Mouais... Je crois que je préfère Getopt::Long : il est aussi dans le CORE, et il est à la fois plus puissant et plus cohérent, pour un exemple vraiment complet de son utilisation, on peut jeter un coup d'oeil à mon "encodeur", dans les snippets du forum.

--
Jedaï

[Nickname]

je jetterai un oeil aux snippets

Merci Jedai