[langage] exporter une variable ou un tableau d'une sous routine

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

j'utilise la sous routine suivante :

Code:

---

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 ??

Et en utilisant return ?

Code:

---

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);

---

@++

ben là je vais dire betement
avec un

Code:

---

1 2	return(\@evenement_sql);

---

la fin de ta fonction

et à l'appel dans le prog principal:

Code:

---

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:

---

 

---

merci, c'est OK.