Discussion :

[houpli]

Bonjour à tous.

Je voulais savoir comment récupérer une valeur de retour d'un programme externe perl dans un script shell.

Voici mon script shell
for dir_files in `ls ${LGD_DATA_DIR}/${DAT_STG_DFL_EOM_PREF}*`
do
perl lgd_get_mth_ref.pl ${dir_files} > mth_ref
done

Et mon script perl
$file = $ARGV[0] ;
$pos_mth_ref = index ($file,"20") ;
$mth_ref = substr($file, $pos_mth_ref, 6) ;

C'est tout bête mais je voulais récupérer $mth_ref dans mon programme shell. Cela ne fonctionne pas avec return..

Quelqu'un a une astuce ?

Merci d'avance.

[Anthony.Desvernois]

Bonjour,

Tu peux l'afficher sur la sortie standart via perl, et la récuperer dans ton sh comme ceci:

Code :

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

RETOUR=`perl lgd_get_mth_ref.pl ${dir_files}`

[houpli]

Merci cela fonctionne

[Anthony.Desvernois]

De rien N'oublie pas la balise résolu