[sed] numéroter les substitutions

je suis en train de me rafraîchir un peu la mémoire avec perl et faut bien admettre, j'ai vraiment merdé :(

je me rends compte que mon acharnement, même si j'ai appris quelques trucs, a été une énorme perte de temps. Comme quoi on peut arriver à ses fins (j'ai fait pas mal de scripts bash ces jours ci et à part celui-ci, les autres me donnent satisfaction), et malgré tout avoir échoué, parce qu'on s'est trompé d'outil.

Salut,
Passe en PERL, exemple cache_lien.pl

#!/usr/bin/perl
$i=1;
while ( $ligne = <STDIN> )
    {
    $_ = $ligne ; $fin = $ligne ;
    while ( /https?:\S*/ )
        {
        $debut = $` ;
        $fin = $' ;
        print $debut,"[LIEN ",$i,"]" ;
        $_ = $fin ;
        $i++;
        }
    print $fin ;
    }

Utilisation :

cmd> chmod +x cache_lien.pl
cmd> cat zob |  ./cache_lien.pl

mais j'arrive pas à croire qu'il n'existe aucune séquence permettant de récupérer le numéro de la substitution. Sinon ben c'est à graver au burin dans la toudouliste de sed :)

non c'est pas tout à fait la voie que je cherche

je suis quasiment certain que le drapeau e de la commande s peut me permettre d'y arriver, je touche un peu le truc des doigts, je m'éloigne à nouveau, je reviens, mais pas moyen d'avoir le truc pile

à chaque fois, un truc cloche

ça doit se jouer en un cocktail inspiré de ça

cat zub |sed 's/^/echo /'| sed -re ':a;N;$!ba' -e 's/m/;let i++;echo -n "<G$i>"/egm'

cat zub |sed 's/^/echo -n /'| sed -re ':a;N;$!ba' -e 's/m(.*)$/;let i++;echo "<G$i>\1"/egm'

cat zub |sed 's/^/echo -n /'| sed -re ':a;N;$!ba' -e 's/m([^m]*)$/;let i++;echo "<G$i>\1"/egm'

à un moment j'ai presque tenu mon affaire avec ça

$ cat doubidule
#!/bin/sh
sed \
    -e "s/'/\\\'/g" \
    -e "s/(/\\\(/g" \
    -e "s/)/\\\)/g" \
    -e 's/"/\\\"/g' \
    -e 's/\\$/./g' \
| sed -r \
    -e ':a;N;$!ba' \
    -e 's#https?://[^ \n]+($| )#LIEN\1#gm' \
    -e 's/^/:::/gm' \
    -e 's#(^|LIEN)#true;let i++;echo -n "[\1 $i]"#egm' \
| sed -r \
    -e 's/true//g' \
    -e 's/\[ [0-9]+\]:::/\n/g' \
    -e 's/\[LIEN [0-9]+\]/^[[41m&^[[49m/g'

$ cat zob
on trouve sur http://www.rotten.com le pire ramassis de résidus putrides de
sous-chiottes, mais sur http://www.caramail.com ou sur http://www.msn.com par
exemple, ça rivalise. Par contre, sur
http://www.c-est-la-fete-du-slip-en-charente-poitou-vendee.com
on trouve vraiment de quoi se distraire le bulbe ainsi que quelques bonnes
recette de crevettes qui rivalisent avec http://www.bonnesoupe.fr
c'est presque aussi bon que "Chez Paulette".
http://www.bolino.com par contre est vraiment dégueulasse
(c'est terrible)

$ cat zob | ./doubidule

on trouve sur [LIEN 2] le pire ramassis de résidus putrides de
sous-chiottes, mais sur [LIEN 4] ou sur [LIEN 5] par
exemple, ça rivalise. Par contre, sur
[LIEN 8]
on trouve vraiment de quoi se distraire le bulbe ainsi que quelques bonnes
recette de crevettes qui rivalisent avec [LIEN 11]
c'est presque aussi bon que "Chez Paulette".
[LIEN 14] par contre est vraiment dégueulasse
(c'est terrible)

avec les zolies couleurs et tout. Bon j'ai bossé comme un goret, insérer des trucs pour les enlever ensuite c'est dégueulasse.

Mais bon, après les affichages pourraves de mes commandes du dessus j'étais content, jusqu'à ce que d'un coup je me rappelle (en le voyant) que pour contourner un problème j'avais aussi substitué le caractère de début de ligne (le flag e est vraiment casse-burnasses) et que je devais maintenant m'occuper de ça, vu que chaque ligne incrémente le compteur, en l'état

bon, c'est juste pour un preview de mail donc je crois VRAIMENT que je vais arrêter de me bouffer du temps là dessus :D

C'est typique, ça te prends comme ça, tu veux faire un truc minuscule genre qui fait pinpon guili et paf, tu te retrouves à coder deux semaines en bash pour que le guili débeugler le bras automatique qui te chatouille quand le machin fait guili

chuis malade :(

Tè la commande de "gregregre" revue pour l'incrémentation :

[jp@Mandrake tmpfs]$ cat fich
pime
pame
poume
puma pomu pima
pome pyme plume
tomahawk tomate tomette
thomas

[jp@Mandrake tmpfs]$ c=1 && for i in `cat fich`; do echo $i | sed "s/m/W$c/g" && c=$(expr $c + 1); done
piW1e
paW2e
pouW3e
puW4a
poW5u
piW6a
poW7e
pyW8e
pluW9e
toW10ahawk
toW11ate
toW12ette
thoW13as
[jp@Mandrake tmpfs]$

A marche ;-)))

c=1 && for i in pime pame poume ; do echo $i | sed "s/m/W$c/g" && c=$c+1 ; done

ou quelque chose dans le style ça doit passer
sauf que la variable dans sed je crois me rappeler que c'est une syntaxe speciale mais là j'ai pas de machine unix pour tester....

regarde le man page de sed pour voir comment envoyer le $c dans la commande interne de sed

Et pourquoi ne pas faire un petit programme python (ou perl) avec une petite boucle incrementant le compteur à chaque substitution ?
http://docs.python.org/lib/re-syntax.html

Si tu tiens vraiment à le faire sans faire de script tu peux le faire en perl.

Bonne chance