Discussion :

[mollux]

comment exporter une variable ou un tableau d'une sous routine vers le programme principal ?

j'utilise la sous routine suivante :

Code :

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

1
2
3
4
5
6
7
8
9
 
sub evenement_proc
{
my $ho_name=$_[0];
my @evenement_sql="";
@evenement_sql=qx{echo "set heading off;\n select distinct(v_job) from mc_event_base where ho_name in '$ho_name' and v_job is
 not null;" | sqlplus -s $USER_ORA/$PASSWD_ORA\@$ORACLE_SID} ;
chomp @evenement_sql;
}

hors le tableau @evenement_sql n'est pas présent dans le programme principal, quelqu'un a t'il une idée ??

[GLDavid]

Et en utilisant return ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
sub evenement_proc
{
my $ho_name=$_[0];
my @evenement_sql="";
@evenement_sql=qx{echo "set heading off;\n select distinct(v_job) from mc_event_base where ho_name in '$ho_name' and v_job is
 not null;" | sqlplus -s $USER_ORA/$PASSWD_ORA\@$ORACLE_SID} ;
chomp @evenement_sql;
return @evenement_sql;
} 
 
#Ton main
@ton_tableau = &evenement_proc($arg);

@++

[jeff_13]

ben là je vais dire betement
avec un

Code :

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

1
2
 
return(\@evenement_sql);

la fin de ta fonction

et à l'appel dans le prog principal:

Code :

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

1
2
3
 
$ref=&evenement_proc();
my@TAB=@$ref;

voilà le tableau TAB contient les éléments de @evenement_sql

mais est-ce vraiment cela que tu attendais?

Code :

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

[mollux]

merci, c'est OK.