awk et elisp

Ph. Ivaldi :

Sans vouloir abuser de votre patience, que pourrait être l'équivalent
en elisp de la commande suivante:

awk -F: '{ printf ("%s:%sn",$2,$3) }' fichier.log

(while (re-search-forward "^\(.*?\):\(.*?\):\(.*\)$" (point-max) t)
(replace-match "\2:\3")
)

Le 10 août 2006 à 16h00:02,
lhabert@clipper.ens.fr (Luc Habert) écrivit :

Ph. Ivaldi :

Sans vouloir abuser de votre patience, que pourrait être l'équivalent
en elisp de la commande suivante:

awk -F: '{ printf ("%s:%sn",$2,$3) }' fichier.log

(while (re-search-forward "^\(.*?\):\(.*?\):\(.*\)$" (point-max)
t)
(replace-match "\2:\3")
)

Merci, je n'aurai pas trouvé tout seul.
Le but est de remplacer la commande
(message
(shell-command-to-string
"awk -F: '{ printf ("%s:%s\n",$2,$3) }' ficher.log"))

par du code Elisp "pur".

Je procède ainsi:

(defun toto()
(insert-file "fichier.log")
(beginning-of-buffer)
(while (re-search-forward "^\(.*?\):\(.*?\):\(.*\)$" (point-max) t)
(replace-match "\2:\3"))
(message (buffer-string)))

(with-temp-buffer (toto))

J'ai bon ?
--
Philippe Ivaldi.