----- Original Message -----
From: "anne aublanc" <anne.aublanc@???>
To: <guilde@???>
Sent: Saturday, November 27, 2004 4:46 PM
Subject: Re: remplacer de caractères dans une chaine
Opération réussi
Merci à tous :o))
le code :
#!/bin/sh
set -x
home=/home/e-smith/files/ibays/fax-voice1/html/fax
config=$home/filesuspendu
cat $config | while read line # ok
do
command=`echo $line` # extract line
commanda=`echo $line | cut -d" " -f1 ` # extract parameter 1
commandb=`echo $line | cut -d" " -f2 -s` # extract parameter 2
command1=`echo $commanda | sed 's/\//\\\\\//g'` # traite parameter 1
command3=`echo $commandb | sed 's/\//\\\\\//g'` # traite parameter 2
command3=$command3"\n" # traite parameter 2
pour fin de ligne
command4="perl -wpi -e s/$command1//g; -e s/^\s$command3//g; $config"
# formatte les 2 cdes
$($command4) # execute
done
Une deuxième variante :
command3="^\s"$command3"\n" # traite parameter 2 pour
le blanc entre les 2 paramètres et pour fin de ligne
command4="perl -wpi -e s/$command1//g; -e s/$command3//g; $config" #
formatte les 2 cdes
J'ai récupéré les 2 paramètres de chaque ligne dans une variable différente
et on peut exécuter 2 cdes et certainement plus dans l'appel du perl
anne
