Re: remplacer de caractères dans une chaine

Top Page

Reply to this message
Author: anne aublanc
Date:  
To: guilde
Subject: Re: remplacer de caractères dans une chaine

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