Bonjour à tout les fans de Perl!
Mon probléme:
J'ai un fichier de variable:var.txt
$$DATE1=01/01/79
$$DATE2=01/01/80

Un fichier de parametre param.txt
$$DATE1=05/05/05
$$DATE2=06/06/06

Comment remplacer les valeurs de param.txt par celle de var.txt?
Je veux à la fin avoir dans param.txt:
$$DATE1=01/01/79
$$DATE2=01/01/80
Je sais le faire en shell pour ceux que ça interesse:
********************************************************
if [[ $# -lt 2 ]]
then
Usage
exit 2
fi

VAL_FILE=$1
CFG_FILE=$2
FICHIER_TMP=./tmp_file.txt

cat $VAL_FILE | while read line
do
to_seek=`echo $line | cut -d\= -f1`
nb_occur=`grep $to_seek $CFG_FILE | wc -l`
sed "s,$to_seek=.*,$line,g" $CFG_FILE > $FICHIER_TMP
mv $FICHIER_TMP $CFG_FILE
#echo $line ' --> '$nb_occur ' ligne(s) modifiés) !'
done

********************************************************

J'ai du mal en perl...Merci au fan